DBGrid sortieren

[hoika]

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