点击Ehlib中DbGridEh控件的title排序

最新推荐文章于 2024-03-01 21:43:27 发布

转载最新推荐文章于 2024-03-01 21:43:27 发布 · 2k 阅读

文章标签：

#测试 #string

开发技术专栏收录该内容

16 篇文章

订阅专栏

本文介绍了两种使用Delphi中Ehlib库的DbGridEh控件实现点击标题栏进行排序的方法。通过调整SortMarker属性并设置数据集的排序字符串，可以轻松实现升序或降序排列。

点击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;