Chọn hàng sau khi làm mới DBGrid

Question

Vâng, một số câu hỏi n00b của tôi. Tôi đã lướt net và câu hỏi tương tự ở đây nhưng không tìm thấy bất kỳ câu trả lời đúng cho đơn giản như vậy (như tôi nghĩ) vấn đề.

Tôi có DBGrid. Tôi chọn một hàng và thực hiện một số hành động với dữ liệu khác được liên kết với hàng này. Sau khi hoàn thành, DBGrid của tôi đang được làm mới và chọn reset hàng đầu tiên. Tôi muốn nhận được cùng một hàng được chọn đã được chọn trước khi làm mới dữ liệu DBGrid. Bất kỳ đề xuất?

Answer 1

Trước khi làm mới, hãy lưu lựa chọn hiện tại của tập dữ liệu được liên kết làm dấu trang, sau đó khôi phục dấu trang sau đó.

Answer 2

RecKey:=DmFRM.ViewTBL.RecNo; 
      with DmFRM.ViewTBL do 
       begin 
        Active:=false; 
        Active:=True; 
        RecNo:=RecKey; 
       end; 

Answer 3

Câu trả lời này nhằm mục đích bổ sung nhỏ cho Mason chứ không phải thay thế. Tôi đã thêm nó chỉ vì một câu trả lời khác đã xuất hiện, gợi ý, không chính xác, việc sử dụng thuộc tính RecNo của tập dữ liệu. Không phải tất cả các con cháu của TDataSet đều thực hiện RecNo một cách đáng tin cậy hay không. Một số hậu duệ chỉ trả lại giá trị không đổi, ví dụ: 0 cho RecNo của hàng hiện tại và không làm gì khi gán một giá trị cho nó.

procedure TMyForm.DoSomethingWithDataSet(ADataSet : TDataSet); 
var 
    Bookmark : TBookmark; 
begin 
    Bookmark := ADataSet.GetBookmark; // Save your place in ADataSet 

    try 
    Screen.Cursor := crSqlWait; // Show the user that something is happening 
    Update; // update the form to make sure screen cursor updates 
    ADataSet.DisableControls; 
    // do something with ADataSet here e.g. 
    ADataSet.First; 
    while not ADataSet.Eof do begin 
     // do something with current row here, then 
     ADataSet.Next; 
    end; 
    finally 
    ADataSet.GotoBookmark(Bookmark); // Return to where you were at outset 
    ADataSet.FreeBookmark(Bookmark); 
    ADataSet.EnableControls; 
    Screen.Cursor := crDefault; // Let the user see you're done 
    end; 
end;