關於DBGridEH 的排序問題 ，在線等待，100分答謝!

Question

關於DBGridEH 排序問題 ，在ontitlebtnclick事件寫入的代號，點一下按升序排，再點一下，按降序排，我用的是TADOQUERY控件跟數據庫連接。

Answer 1

ADOQuery1.Sort:=DBGridEH.DataSource.DataSet.Fields[i].FieldName Desc;

Answer 2

1、设置dghAutoSortMarking属性为true
2、设置希望排序的Column的TitleButton属性为true
3、uses列表中增加EhlibAdo
这样就可以了，不需要写代码

Answer 3

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if pos('ASC',ADODataSet1.Sort)>0 then
    ADODataSet1.Sort:= Column.FieldName+' DESC'
  else ADODataSet1.Sort:= Column.FieldName+' ASC';
end;