点击Ehlib中DbGridEh控件的title排序

转载 2006年05月17日 00:17:00
点击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;  

相关文章推荐

EhLib控件使用技巧 --DBGridEh自动过滤

DBGridEh 可以为你提供一个更加美观和功能丰富的 DBGird,比如平面化显示、奇偶行不同颜色(斑马线)、快速查找、合计行、Grid 打印等。在 Ehlib 的后期版本中,还提供了一个非常强大的...

Ehlib 的 DBGridEh 控件导出到Excel的三种封装过程/函数

必须uses DBGridEhImpExp,  EhlibADO, DBGridEh 第一种: procedure TForm2.dbgridehtoexp(lsdbgrideh: t...
  • my98800
  • my98800
  • 2016年11月11日 21:32
  • 445

DBGridEh,DBGrid点击标题排序

最近在找关于解决DBGridEh,DBGrid点击标题排序的最简单方法的同时,发现说法很多,但是没有找到一个比较详细的。 所以我在这里做一个小的总结,有不足之处请大家多多指教。 首先说下关于DBG...
  • haynes
  • haynes
  • 2013年06月11日 14:01
  • 467

delphi实现dbgrideh点击列自动排序

dbgrideh控件本身是支持点击列自动排列的,只要设置

列表控件点击列排序案例

  • 2016年09月09日 17:01
  • 129KB
  • 下载

EHlib,fastreport,vclskin第三方控件的编译和安装

从一入行就碰上了BCB这家伙,可是才知道其大概,要说精通,还有很长的路要走。 今天经理要求我把以前的程序去展示,这程序是我出来工作的第一个项目,熟悉环境用了1个月,开发程序用了2个月,调试优化用了2个...

EhLib控件的使用说明

EhLib控件的使用说明 一. DBGridEh组件: 1.      属性。       2.      使用统计栏功能 (1)   设置统计栏行数,将DBGridEh.Foot...

EhLib控件使用技巧

2003-12-5 15:22:29 使用 TDBSumList 组件    还记得以前有朋友问过这样一个问题:在 DBGrid 下如何像 Excel 一样能够做统计计算,实话说,使用 DBG...

Delphi表格控件DBGridEh全属性设置详解 最全的属性设置说明

很是费了的功夫,把DBGridEh全部属性设置弄出来了   白波九道  2013.9.10 可惜做好的表格传不下来,只好粘成纯文本了 属性 子选项 值 说明 Allowedoperation...
  • my98800
  • my98800
  • 2016年03月11日 16:24
  • 2125
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:点击Ehlib中DbGridEh控件的title排序
举报原因:
原因补充:

(最多只允许输入30个字)