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; 这个方法是从网友的博客上看到的,刚好用上,收藏了方便以后再用。

相关文章推荐

DBGridEh,DBGrid点击标题排序

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

DBgrid 第一列加入CheckBox,点击列头 全选/全消

真对sqlserver数据说明(其他数据库没有试过): 在数据库对应的表中加入  bit 列验证是否被选中 然后dbgrid第一列的filedname是bit列 在DBgrid的onDrawCo...

Asp.Net GridView點擊標題排序方法

Asp.Net GridView點擊標題排序方法 今天需要用到在GridView中點擊標題排序,琢磨了半天,終於成功了。在看代碼之前需要說明一點:       GridView本身有一个Sor...
  • qsbqing
  • qsbqing
  • 2012年03月05日 17:40
  • 572

JS点击标题自动排序

站长特效 js实现点击分类排序效果 站长特效网  * {   padding:0;   margin:0;  }  body {   font-family:verdana;   f...

QTableWidget 点击标题栏 设置排序

需求:统计场景中模型信息,方便查看模型 要求: 1.统计信息包括:包围球中心点、半径信息;模型的几何个数、图元个数、顶点个数、三角面个数、纹理格式、纹理个数、纹理大小等 2.对信息数...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ClientDataSet 配合 DBGrid 实现 点击标题进行 排序
举报原因:
原因补充:

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