1.添加引用:DBClient2.置DBGridEh控件属性:设置dghAutoSortMarking属性为true 设置希望排序的Column的TitleButton属性为true3.//表格排序过程 procedure OrderGrid(dataSet:TClientDataset;orderField:string); var i:integer; begin if dataSet.IndexFieldNames<>'''''''' then begin i:=TClientDataSet(DataSet).IndexDefs.IndexOf(''''i''''+orderField); if i=-1 then begin with Dataset.IndexDefs.AddIndexDef do begin Name:=''''i''''+orderField; Fields:=orderField; DescFields:=orderField; end; end; dataSet.IndexFieldNames:=''''''''; dataSet.IndexName:=''''i''''+orderField; end else begin dataSet.IndexName:=''''''''; dataSet.IndexFieldNames:=orderfield; end; end;4.在DBGridEh的OnTitleClick事件中调用OrderGrid(DM.ClientDataset,Column.FieldName);
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
