DBGrid sortieren

[hoika]

Hallo,

der Grund ist

1. kein AdoDataSet1.Close / Open mehr

ich hatte dir da noch ... angegeben

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  sCommandText : String;
begin

  if Column.FieldName <> sSortColumn then 
  begin 
    sSortColumn := Column.FieldName; 
    bSortOrder  := True;
  end 
  else 
  begin 
    bSortOrder := not bSortOrder; 
  end; 

  sCommandText := 'SELECT * FROM TTabelle ORDER BY '  + sSortColumn;

  if not bSortOrder then 
  begin 
    sCommandText:= sCommandText + ' DESC'; 
  end; 

  ADODataSet1.Close;

  ADODataSet1.CommandText:= sCommandText;

  ADODataSet1.Open;
end;

Das ist aber nur die Spitze des Eis-Berges ..

DBGrid1.DataSource -> DataSource1.DataSet -> TAdoDataSet

So muss es aussehen.
Bei dir steht TADoTable1 statt dem AdoDataset

Bei der Gelegenheit kannst du auch im OI einen
ersten CommandText eintragen und dann das Active auf true setzen.


Heiko

PS:
Falls das AdoDataSet nicht als DataSet angezeigt wird,
mache das erst mal mit em ComamndText und dem Active True