可以用filter多个字段的排序吗? 可以用filter多个字段的排序吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用sort排序adoquery1.sort:=' 字段 desc' ADOQuery1.Sort := 'LastName ASC, DateDue DESC' 我是用TClientDataSet保存的临时数据,没有数据库支持,TClientDataSet好象没有sort属性 TClientDataSet可以通过索引排序 Filter是过滤用的如: ADOTable1.Filtered:=False; ADOTable1.Filter:='KC=''Delphi'' and LB=''1'''; ADOTable1.Filtered:=True;排序应该用sort吧?如:ADOTable1.Sort:='LB ASC,KC ASC,TM DESC,BH DESC'; 再罗嗦一句:ASC是升序,DESC是降序; 呵呵…… var myDataSet:TClientDataSet; procedure TForm1.Button1Click(Sender: TObject);begin myDataSet := TClientDataSet.Create(application); myDataSet.FieldDefs.Add('name',ftstring,10); myDataSet.FieldDefs.add('age',ftinteger); //定義索引 myDataSet.IndexDefs.Add('ind','name;age',[ixDescending,ixCaseInsensitive]); myDataSet.IndexDefs[0].DescFields := 'age'; //降序 myDataSet.IndexDefs[0].CaseInsFields := 'name'; //升序 //建立 myDataSet.CreateDataSet; //myDataSet.IndexName := 'ind'; myDataSet.Active; myDataSet.AppendRecord(['bb張三',10]); myDataSet.AppendRecord(['bb張三',1]); myDataSet.AppendRecord(['aa李四',40]); myDataSet.AppendRecord(['aa李四',100]); DataSource1.DataSet := myDataSet; //再接TDBGrid控件、直接可看 DBGrid1.DataSource := DataSource1;end;procedure TForm1.Button2Click(Sender: TObject);begin myDataSet.IndexName := 'ind';end;(注:按「Button1」建立一個ClientDataSet、按「Button2」排序。 你也可以用手动的方法参考上述設定) shellexecute打开文件延时和SetWindowPos隐藏窗口 2 FAST REPORT 里怎么横着打数据啊 搞了半天没搞出来 如何用独立线程实现数据更新 大虾们快来啊,菜鸟有事相求! 单步调试时,时钟怎么执行的那么快? 高手求解:重启后覆盖 Windows 系统文件如何实现? 急招用Delphi开发人员 如何在delphi的ICE中查看API函数的用法,原型,参数等 有几个自称delphi高手的,看到这个简单问题后,就上吊了 再求解Socket图片传送? 如何往TRichEdit插入图片 急!!!!!!!!!!!!!!!!怎么样实现在PANEL上实现透明文字
adoquery1.sort:=' 字段 desc'
ADOTable1.Filtered:=False;
ADOTable1.Filter:='KC=''Delphi'' and LB=''1''';
ADOTable1.Filtered:=True;
排序应该用sort吧?如:
ADOTable1.Sort:='LB ASC,KC ASC,TM DESC,BH DESC';
myDataSet:TClientDataSet; procedure TForm1.Button1Click(Sender: TObject);
begin
myDataSet := TClientDataSet.Create(application);
myDataSet.FieldDefs.Add('name',ftstring,10);
myDataSet.FieldDefs.add('age',ftinteger);
//定義索引
myDataSet.IndexDefs.Add('ind','name;age',[ixDescending,ixCaseInsensitive]);
myDataSet.IndexDefs[0].DescFields := 'age'; //降序
myDataSet.IndexDefs[0].CaseInsFields := 'name'; //升序
//建立
myDataSet.CreateDataSet;
//myDataSet.IndexName := 'ind';
myDataSet.Active;
myDataSet.AppendRecord(['bb張三',10]);
myDataSet.AppendRecord(['bb張三',1]);
myDataSet.AppendRecord(['aa李四',40]);
myDataSet.AppendRecord(['aa李四',100]); DataSource1.DataSet := myDataSet; //再接TDBGrid控件、直接可看
DBGrid1.DataSource := DataSource1;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
myDataSet.IndexName := 'ind';
end;(注:按「Button1」建立一個ClientDataSet、按「Button2」排序。
你也可以用手动的方法参考上述設定)