數據源爲adoQuery
1、首先設置dbGridEh裏需要排序的字段的Title->Titlebutton屬性爲true
2、設置dgGridEh的optionsEh->dbhautoSortMarking屬性爲true
3、在dbGridEh的ontitleButtonClick事件裏面判斷。
procedure Tfrmmain.dbgGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh);
begin
if column.Title.SortMarker=smdowneh then
adoQuery1.Sort :=column.FieldName
else
adoQuery1.Sort :=column.FieldName +' DESC';