点击Ehlib中DbGridEh控件的title排序

最新推荐文章于 2017-07-18 06:27:00 发布

uudelphi

最新推荐文章于 2017-07-18 06:27:00 发布

阅读量2k

点赞数

分类专栏：开发技术文章标签：测试 string

开发技术专栏收录该内容

16 篇文章 0 订阅

订阅专栏

点击Ehlib中DbGridEh控件的title排序

提交日期:2004-4-3

关键词:Ehlib DbGridEh 排序

在dbgrideh中直接点击title就可按点击的那个字段排序的方法

第一种方法（未测试）
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
begin
//点击GridEh标题排序
if (Column.Title.SortMarker = smNoneEh) or (Column.Title.SortMarker = smDownEh) then
begin
ADOQuery1.SORT := COLUMN.FIELDNAME;
Column.Title.SortMarker := smUpEh
end
else
begin
ADOQuery1.SORT := COLUMN.FIELDNAME + ' DESC';
Column.Title.SortMarker := smDownEh
end;
end;

第二种方法（未测试）
procedure TPrintMai_frm.DBGridEh1TitleClick(Column: TColumnEh);
var
sortstring: string;
begin //进行排序
with Column do
begin
if FieldName = '' then
Exit;
case Title.SortMarker of
smNoneEh:
begin
Title.SortMarker := smDownEh;
sortstring := Column.FieldName + ' ASC';
end;
smDownEh: sortstring := Column.FieldName + ' ASC';
smUpEh: sortstring := Column.FieldName + ' DESC';
end; //数据集排序。
try
DM.DataModule1.qry2.Sort := sortstring //dataset为实际数据集变量名
except
end;
end;
end;