ClientDataSet 配合 DBGrid 实现 点击标题进行 排序

转载 2006年06月22日 17:25:00
var ASC : Boolean;//是否升序排列 procedure TForm1.DsSort(SortColumn: TColumn); var OldIndex:string; begin if (SortColumn.Grid.DataSource=nil) or (SortColumn.Grid.DataSource.DataSet=nil) or (not SortColumn.Grid.DataSource.DataSet.Active) then Exit; OldIndex:=TClientDataSet(SortColumn.Field.DataSet).IndexName; if OldIndex<>'' then begin TClientDataSet(SortColumn.Field.DataSet).IndexName:=''; TClientDataSet(SortColumn.Field.DataSet).DeleteIndex(OldIndex); end; case ASC of True :TClientDataSet(SortColumn.Field.DataSet).AddIndex('px',SortColumn.Field.FieldName,[ixDescending]);//已经是升序就按降序排列 else//否则按升序排列 TClientDataSet(SortColumn.Field.DataSet).AddIndex('px',SortColumn.Field.FieldName,[ixPrimary]); end;{end case} TClientDataSet(SortColumn.Field.DataSet).IndexName:='px'; ASC:=not ASC; end; 调用 procedure TForm1.dbgrd1TitleClick(Column: TColumn); begin DsSort(Column); end; 这个方法是从网友的博客上看到的,刚好用上,收藏了方便以后再用。

轻松实现DBGrid的多表头

轻松实现DBGrid的多表头    hj0791(原作)      关键字     多表头     用法:   设置DBGrid的Column的Caption属性   例如:Col...
  • lyf_lyf
  • lyf_lyf
  • 2015年05月25日 19:21
  • 1468

DBGrid 使用大全

在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid ...
  • zisongjia
  • zisongjia
  • 2017年03月06日 18:05
  • 376

delphi 更改DBGrid 颜色技巧

1、根据条件更改某一单元格的颜色 procedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; const Rect: TRect; ...
  • Trassion
  • Trassion
  • 2013年06月05日 01:28
  • 10193

DBGridEh,DBGrid点击标题排序

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

DBGridEh,DBGrid点击标题排序

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

dbgrideh 一个单元格内怎么换行显示

DBGridEh1.Columns[i].WordWrap:= True
  • yanjinrong
  • yanjinrong
  • 2014年08月06日 11:50
  • 1736

delphi实现dbgrideh点击列自动排序

dbgrideh控件本身是支持点击列自动排列的,只要设置
  • baidu_20650485
  • baidu_20650485
  • 2014年11月04日 17:31
  • 1739

DBGrid连接数据库

使用ADO连接SQL Server 2000数据库 1.用ADO组件TADOQuery连接数据库 用TADOQuery组件连接数据库需要以下几个步骤: (1)用TADOConnection组件连...
  • cddchina
  • cddchina
  • 2014年08月06日 21:14
  • 1942

JS点击标题自动排序

站长特效 js实现点击分类排序效果 站长特效网  * {   padding:0;   margin:0;  }  body {   font-family:verdana;   f...
  • tian_yan71
  • tian_yan71
  • 2016年06月21日 20:54
  • 838

将DBGrid中的数据导出到Word

转载:点击打开链接 这里把代码复制过来有一些细节上的要注意一下,在代码里面的for循环的次数和你的DBGrid绑定数据有很大关系,比如你是否隐藏某一行,或者说你只需导出哪几列等等;还有导出来的列名一...
  • u014114857
  • u014114857
  • 2015年07月17日 16:54
  • 363
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ClientDataSet 配合 DBGrid 实现 点击标题进行 排序
举报原因:
原因补充:

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