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