上面的好像还有个什么属性设为true
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';
end;
百度上都有的