1、设置DBGridEh的OptionsEh里的dbhautoSortMarking属性为true
2、双击DBGridEh,添加你要显示的字段,然后设置需要排序的字段的Titlebutton属性为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;
see Yizero by yizero.com