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