如果是ADO的DataSet就好办了,直接 procedure TFormDataBase.DBGrid1TitleClick(Column: TColumn); begin ADOQuery1.Sort:=Column.Title.Caption; end;如果是BDE的,那就 Query1.Active:=False; Query1.SQL.Clear; Query1.SQL.Add('Select * From myTable Where 条件 order by '+Column.Title.Caption); Query1.Open;
procedure TFormDataBase.DBGrid1TitleClick(Column: TColumn);
begin
ADOQuery1.Sort:=Column.Title.Caption;
end;如果是BDE的,那就
Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From myTable Where 条件 order by '+Column.Title.Caption);
Query1.Open;