首页 > > 程序设计 > delphi >

DBGridEh实现单击标题栏排序方法

2008-04-09 04:21:08来源：互联网阅读 ()

1.添加引用:DBClient

2.置DBGridEh控件属性:

设置dghAutoSortMarking属性为true

设置希望排序的Column的TitleButton属性为true

3.//表格排序过程
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);

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有