关闭

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

1442人阅读 评论(0) 收藏 举报
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; 这个方法是从网友的博客上看到的,刚好用上,收藏了方便以后再用。
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:167987次
    • 积分:2465
    • 等级:
    • 排名:第15029名
    • 原创:73篇
    • 转载:13篇
    • 译文:0篇
    • 评论:25条
    文章分类