Выберите строку после обновления 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 надежно или вообще. Некоторые потомки просто возвращают постоянное значение, например. 0 для RecNo текущих строк и ничего не делать, когда вы присваиваете ему значение.

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;