实现DBGrid字段的排序

Question

manboo(横刀) 网友：不知结果如何？
----多谢多谢！

Answer 1

这个我已经试过决对可行:DBGrid1Boolean: boolean; //全局变量procedure TForm1MainMenu.DBGrid1TitleClick(Column: TColumn);
begin
  with ADOTable1Builder do
  begin
    if DBGrid1Boolean then
      TADOTable(ADOTable1).Sort := Column.FieldName + ' DESC'
    else
      TADOTable(ADOTable1).Sort := Column.FieldName;
    DBGrid1Boolean := not(DBGrid1Boolean);
  end;
end;