Hallo, erstmal Danke für eure Antworten. Ich hab jetzt noch ein bisschen rumprobiert und scheinbar geht es jetzt damit:
Delphi-Quellcode:
procedure TFArtikel.DBGridDatenTitleClick(Column: TColumn);
begin
//Nach ArtNr sortieren
If (Column.FieldName = '
ArtNr')
Then
Begin
DB.Active := False;
DB.SQL.Clear;
DB.SQL.Add('
SELECT * FROM "c:\artikel.db"');
DB.SQL.Add('
ORDER BY ArtNr');
iSortierStatus := 1;
End;
//Nach Artikelbezeichnung sortieren
If (Column.FieldName = '
Artikelbezeichnung')
Then
Begin
DB.Active := False;
DB.SQL.Clear;
DB.SQL.Add('
SELECT * FROM "c:\artikel.db"');
DB.SQL.Add('
ORDER BY Artikelbezeichnung');
iSortierStatus := 2;
End;
... und dann am Ende ...
Delphi-Quellcode:
//Sortiertes Feld an Anfang setzen
Case iSortierStatus
of
1 :
DB.FieldByName('
ArtNr').
Index := 1;
2 :
DB.FieldByName('
Artikelbezeichnung').
Index := 1;
End;
Mfg
