Aggiorna query/cxGrid senza perdere il record selezionato

Question

Capisco che facendo quanto segue si aggiorna una query.

query.Close; 
query.Open; 

Ma dopo aver eseguito questa operazione, si concentra nuovamente sul primissimo record su cxGrid.

Esiste un modo per mantenere selezionato il record corrente dopo aver aggiornato la query?

Grazie.

ho fatto il seguente ..

procedure Tdatamodule.RefreshGrid; 
var pos : tbookmark; 
begin 
pos := qryMainGrid.GetBookmark; 
try 
    qryMainGrid.Close; 
    qryMainGrid.Open; 
    qryMainGrid.GotoBookmark(pos); 
finally 
    qryMainGrid.FreeBookmark(pos); 
end; 

fine;

Ma ora viene visualizzato il messaggio di errore segnalibro non trovato per il set di dati.

Qualsiasi suggerimento sarebbe molto apprezzato.

Answer 1

Per aggiornare il set di dati, chiamare il metodo Refresh e ricordare la posizione del cursore del set di dati utilizzare il segnalibro. Si esegue una query per il segnalibro alla posizione del cursore corrente chiamando GetBookmark, aggiornare il set di dati e passare alla posizione del segnalibro chiamando GotoBookmark:

var 
    Bookmark: TBookmark; 
begin 
    Bookmark := Query.GetBookmark; 
    Query.Refresh; 
    Query.GotoBookmark(Bookmark); 
end; 

^{Non è necessario chiamare FreeBookmark per liberare il segnalibro nel vostro Delphi versione perché il tipo TBookmark è diventato un array dinamico e come tale viene gestito dal compilatore quando esce dall'ambito della funzione.}