jinzhili的专栏

为爱奋斗

ClientDataSet 配合 DBGrid 实现 点击标题进行 排序
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; 这个方法是从网友的博客上看到的,刚好用上,收藏了方便以后再用。
阅读更多
文章标签: string
个人分类: Delphi
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭