[爆难]TclientDataset如何实现多字段的任意排序(10分)

青云 · 2008-06-04

如果只是正排序，那么 可以用 clientDataset1.IndexFieldNames:='Field1;Field2;Field3'; 如果都是反排序，也好办； 可以用    with ClientDataSet1.IndexDefs.AddIndexDef do       begin         Name := 'sort';         Fields := 'Field1;Field2;Field3';         Options := [ixDescending];       end; ClientDataSet1.IndexName:='sort'; 关键最麻烦的是，如果这3个字段中部分正排序，部分反排序， 类似 AdoDataSet1.Sort:='Field1,Field2 desc,Field3'; TClientDataSet居然没有处理方法！ 这个功能我摸索了7年多，头发都研究白了，也没有搞定！

青云 · 2008-06-04

http://bbs.2ccc.com/topic.asp?topicid=292173

creation-zy · 2008-06-04

用一个计算字段NewField2实现对Field2的反向取值，然后用NewField2取代Field2——也 许可以的（声明：俺没试过

）。

JamesBond_L · 2008-06-04

爲了這個，弄了7年，你也太執著了

青云 · 2008-06-04

这个功能我是融合在DBGridEh控件里的。 所以到处都可以任意单字段或多字段排序，而不用开发者去写任何一句代码； 如果利用计算字段也太麻烦了。

creation-zy · 2008-06-04

唔... 看来加索引不麻烦，加字段麻烦...

iKing · 2008-06-05

7年的问题才10分，呵呵 ================================================ procedure TCommonSortForm.SortCDS_New(); var   strFields,StrDescFlds : string;   i,ipos : integer; begin   if cdsOrder.State in [dsedit,dsinsert] then      cdsOrder.Post;   cdsOrder.First;   while not cdsOrder.Eof do   begin     strFields := strFields + cdsOrder.fieldbyname('fieldname').AsString + ';';     if 'DESC' = UpperCase(trim(cdsOrder.fieldbyname('fieldOrder').AsString)) then       StrDescFlds := StrDescFlds + cdsOrder.fieldbyname('fieldname').AsString + ';';     cdsOrder.Next;   end;   Delete(strFields,Length(strFields),1);   Delete(StrDescFlds,Length(StrDescFlds),1);   (dataset as TClientDataSet).DisableControls;   if (dataset as TClientDataSet).IndexDefs.IndexOf('IndexKing') >= 0 then     (dataset as TClientDataSet).DeleteIndex('IndexKing');     (dataset as TClientDataSet).AddIndex('IndexKing', strFields, [], StrDescFlds);     (dataset as TClientDataSet).IndexDefs.Update;     (dataset as TClientDataSet).IndexName := 'IndexKing';     (dataset as TClientDataSet).First;     (dataset as TClientDataSet).EnableControls; end;

onyliu · 2008-06-05

我没搞明白多加个 ORDER BY 组装SQL不就完了麽

ball_cao · 2008-06-05

to 青云 这个功能我摸索了7年多，头发都研究白了，也没有搞定！ 7年时间你找一个月从TCustomClientDataSet继承下来自己写码早就搞定这个问题了吧？ 对楼主的撞墙精神汗一个！

levi · 2008-06-05

是啊，7年都没搞定，太惨了，呵呵。 function DefineIndex(CDS:TClientDataSet; OldFields:String;  var IdxFields, IdxDescFields: String): Boolean; //根据传递的OldFields内容(从表格得来的)生成表的索引,格式多个字段间用逗号分隔，如果要递减顺序，字段名后加 Desc   (即OldField实际上就是一个Order by 的字句，格式为 Field1,Field2 desc,Field3,....) var tpField,tpDesc:String;   i:Integer; begin   Result:=False;   IdxFields:='';   IdxDescFields:='';   if StrIsEmpty(OldFields) then  //StrIsEmpty 自写的判断是否为空的语句，自已重写吧     Exit;   For i:=1 to CountStrTimes(',', OldFields) do begin  //CountStrTimes 自写的统计有几个字段的函数，自已想办法重写吧     tpField:= Trim(GetAppointStr(',',OldFields, i));     tpDesc:='';     if StrIsEnd('desc',tpField) then       begin         tpDesc:=Trim(Copy(tpField,1,Length(tpField)-5));         tpField:=tpDesc;       end;     if Assigned(CDS.FindField(tpField)) then begin       if Not StrIsEmpty(tpField) then         IDXFields:=IDXFields + Trim(tpField)+ ';';       if Not StrIsEmpty(tpDesc) then         IDXDescFields:=IDXDescFields + Trim(tpDesc) + ';';     end;   end; //循环的作用就是依次求出Field1,Field2 desc,Field3,然后判断这个字段是否存在，再判断后面有没关键字desc，分别加到IdxFields与IdxDescFields字段序列中。   if Not StrIsEmpty(IDXFields) then     Delete(IDXFields,Length(IDXFields),1);   if Not StrIsEmpty(IDXDescFields) then     Delete(IDXDescFields,Length(IDXDescFields),1);   Result:=Not StrIsEmpty(IDXFields); end; 然后呢           with ClientDataSetl do begin             IndexDefs.Clear;             AddIndex('SortReport',IDXFields,[],IDXDescFields);             IndexDefs.Update;             IndexName:='SortReport';           end; 就可以了。 Delphi syntax: procedure AddIndex(const Name, Fields: string; Options: TIndexOptions; const DescFields: string = ''; const CaseInsFields: string = ''; const GroupingLevel: Integer = 0 ); C++ syntax: void __fastcall AddIndex(const AnsiString Name, const AnsiString Fields, Db::TIndexOptions Options, const AnsiString DescFields = "", const AnsiString CaseInsFields = "", const int GroupingLevel = 0); Description Call AddIndex to create a new index for the client dataset. Name is the name of the new index. Fields is a semicolon-delimited list of the fields to include in the index.Options is a (potentially empty) set that can include up to two TIndexOptions values. The valid members for that set include ixDescending (specifying that the index sorts in descending alphanumeric order) and ixCaseInsensitive (specifying that the index should ignore case when sorting). 看一下DELPHI对Addinex帮助的说明，也不用摸索7年了。

青云 · 2008-06-06

楼上的兄弟，您提供的两个关键点： 1. Delphi syntax: procedure AddIndex(const Name, Fields: string; Options: TIndexOptions; const DescFields: string = ''; const CaseInsFields: string = ''; const GroupingLevel: Integer = 0 ); 2.         with ClientDataSetl do begin             IndexDefs.Clear;             AddIndex('SortReport',IDXFields,[],IDXDescFields);             IndexDefs.Update;             IndexName:='SortReport';           end; AddIndex 这个函数我指导，但是它好像不能把多个字段的正反排序按照任意的优先次序来处理 比如： AddIndex('SortReport','Field1,Filed3',[],'Field2'); 那究竟是 order by  Field1,Filed3,Field2 desc 还是  order by Field2 desc, Field1,Filed3 或者是 order by   Field1,Field2 desc,  Filed3

青云 · 2008-06-10

呵呵，看来此问题果然无解！

caiaj · 2008-06-22

AddIndex可以解决，我几年前就已经实现了， 分这么少就只给提示了

wyb_506 · 2008-06-23

我知道哈哈,不过你自己都说难得就10分阿? 那就告诉你个思路哈哈 1 设定一个队列,具体需要多少个元素,则根据你需要排序的字段 2 通过多种办法也是你说的某个字段作为排序依据，还有它的升降等，存入队列 3 等你排序的时候你就循一下，组合出你的AdoDataSet1.Sort:='Field1,Field2 desc,Field3'来 4 至于为什么使用队列，因为假设你的队列定义了10个位置，则等你第11次点某个字段作为排序依据的时候，第一个就自动没有了 哎  一般人不告诉他

[爆难]TclientDataset如何实现多字段的任意排序(10分)

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

iKing

Unregistered / Unconfirmed

onyliu

Unregistered / Unconfirmed

ball_cao

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

caiaj

Unregistered / Unconfirmed

wyb_506

Unregistered / Unconfirmed

Similar threads