Hallo,
ich mache es wie folgt:
- Merken der ID
- Sortieren / Refresh
- Zurücksetzten der ID...
Delphi-Quellcode:
var
ID:
string;
begin
XDBGrid1.DisablePosition;
try
ID :=
Query.FieldByName('
ID').AsString;
//ID merken
Query.Close;
ModifyOrderFields(
Query.SQL, Grid1.OrderFields);
//Sortieren...
Query.Open;
Query.Locate('
ID', ID, []);
//Alte ID wieder setzten
finally
Grid1.EnablePosition(True);
Grid1.UpdateSequence;
end;
//Refreshen der Datenmenge....
Query.Refresh;
ClientDataSet.Refresh;
//Grid refreshen
Grid1.Refresh;
Grid1.Repaint;