Hallo,
Delphi-Quellcode:
var
sComamndText: String;
begin
if Column.FieldName <> sSortColumn then
begin
sSortColumn := Column.FieldName;
bSortOrder := True; // das hier ist neu
end
else
begin
bSortOrder := not bSortOrder;
end;
sCommandText := 'SELECT * FROM TTabelle ORDER BY ' + sSortColumn;
if not bSortOrder then
begin
sCommandText:= sCommandText + ' DESC';
end;
ADODataSet1.CommandText:= sCommandText; // mit F5 breakpoint drauf uns sCommandText ansehen
...
Das ist aber nicht die Ursache.
Sorgt nur dafür das eine neu ausgewählte Spalte immer aufsteigend sortiert wird
und ausserdem kannst du den CommandString besser debuggen
Ausserdem würde ich das
bSortOrder := True;
auch ins FormCreate packen.
Heiko