刷新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;