| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266210
建立时间:2005年6月6日 |
| |
|
 [delpih编程]DOTable排序 【转】
软件技术
吕向阳 发表于 2009/9/17 12:09:00 |
| 众所周知，用adoquery实现排序很简单，用ADOTable排序如何实现呢？其实也很简单，用sort来做。具体用法如下: 1、ADOTable.sort:=’apptime’;
2、如果想要控制正序反序 ADOTable元件使用Sort属性进行排序,Sort属性语法如下,预设值是升幂ASC,值得注意的是,ASC与DESC一律都必须大写才行 例子：ADOTable1.Sort:=’FieldName Desc’ 或ASC
delphi安装目录下有一个adotest的例子就有这个功能，看看dbgrid的TitleClick事件就知道了，如下：
以下是引用片段：
procedure TADODBTest.GridTitleClick(Column: TColumn); var DataSet: TDataSet; begin if not FMovingColumn then begin DataSet := Column.Field.DataSet; if DataSet is TCustomADODataSet then with TCustomADODataSet(DataSet) do begin if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(’ DESC’, Sort) = 0) then Sort := Column.Field.FieldName + ’ DESC’ else Sort := Column.Field.FieldName + ’ ASC’; StatusMsg := ’Sorted on ’+Sort; end; end; FMovingColumn := False; end;
procedure TADODBTest.MasterGridColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin FMovingColumn := True; end; |
|
|