点击Ehlib中DbGridEh控件的title排序_ehlib 排序-优快云博客

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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