刷新DBGrid後選擇行

Question

好吧，來自我的某種n00b問題。我在這裏上網和類似的問題，但沒有找到任何正確的答案這樣簡單（我想）的問題。

我有一個DBGrid。我選擇一行並使用鏈接到此行的另一個數據進行一些操作。完成後，我的DBGrid正在刷新，選定的行重置爲第一個。我想要獲取在刷新DBGrid數據之前選擇的同一行。有什麼建議麼？

Answer 1

刷新之前，將鏈接數據集的當前選擇保存爲書籤，然後恢復書籤。

Answer 2

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

Answer 3

這個答案的目的是爲梅森的一個小補充，而不是替代。我已經添加了它，只是因爲出現了另一個答案，提示使用數據集的RecNo屬性不正確。並非所有的TDataSet後代都能可靠地執行RecNo或完全執行。一些後代只返回一個固定值，例如對於當前行的RecNo爲0，並且在爲其分配值時不執行任何操作。

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;