Delphi ClientDataSet 排序[1]

人生都为一个乐 發表於 2021-1-25 15:23:00

Delphi ClientDataSet 排序 
1、单个字段排序（索引名称自定义，例如：sSort）
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">//升序
with ClientDataSet1do
begin
IndexDefs.Update; //更新
if IndexDefs.IndexOf( 'sSort' )>=0 then DeleteIndex('sSort'); //删除索引
AddIndex('sSort',Column.FieldName, , Column.FieldName ); //添加索引升序
IndexName:= 'sSort';//索引
First; //回到第一行
end;

//降序ixDescending
with ClientDataSet1do
begin
IndexDefs.Update;
ifIndexDefs.IndexOf( 'sSort' )>=0 then DeleteIndex('sSort');
AddIndex('sSort',Column.FieldName,,Column.FieldName);
IndexName:='sSort';
First;
end;</pre>
</div>
2、多个排序字段 (例如：Field1,Field2)
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">with ClientDataSet1do
begin
IndexDefs.Update;
ifIndexDefs.IndexOf( 'sSort' )>=0 then DeleteIndex( 'sSort' );
AddIndex('sSort','Field1, Field2',[],'');
IndexName:='sSort';
First;
end;

with ClientDataSet1do
begin
IndexDefs.Update;
if IndexDefs.IndexOf( 'sSort' )>=0 then DeleteIndex( 'sSort' );
AddIndex('sSort','Field1,Field2',[],'Field1, Field2');
IndexName:='sSort' ;
First;
end;
</pre>
</div>
 
TIndexOption参数取值：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TIndexOption = (
 ixPrimary, //初级升序
 ixUnique, //唯一值
 ixDescending, //降序
 ixCaseInsensitive,//不区分大小写
 ixExpression, //表达式
 ixNonMaintained//不保持
);
TIndexOptions = set of TIndexOption;
</pre>
</div>
　　
　　
　　
 
 
创建时间：2021.01.25　　更新时间：
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/14325422.html

頁: [1]

琼殿技术论坛's Archiver

Delphi ClientDataSet 排序[1]