Hallo.
Danke erstmal für diese Idee.
Sortieren tut er jetzt, jedoch wirt er irgendwie wie Daten durcheinander.
ich habe folgenden Code verwendet:
Delphi-Quellcode:
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var cBook : TBookmark;
begin
if(DBGrid1.Columns[DBGrid1.Col-1].Fieldname='nummer') then begin
cBook := MyTable1.GetBookmark;
MyTable1.OrderFields := 'nummer';
MyTable1.GotoBookmark( cBook );
MyTable1.FreeBookmark( cBook );
end else if(DBGrid1.Columns[DBGrid1.Col-1].Fieldname='name1') then begin
cBook := MyTable1.GetBookmark;
MyTable1.OrderFields := 'name1';
MyTable1.GotoBookmark( cBook );
MyTable1.FreeBookmark( cBook );
end else if(DBGrid1.Columns[DBGrid1.Col-1].Fieldname='vorname') then begin
cBook := MyTable1.GetBookmark;
MyTable1.OrderFields := 'vorname';
MyTable1.GotoBookmark( cBook );
MyTable1.FreeBookmark( cBook );
end;
end;
Für weitere Hilfe wäre ich dankbar.
MfG, Ronny