如果要让软件自动排序,不写任何代码(能满足大多数需求)
方法:
1.---------
2.------------
3.--------
加入EhlibADO单元(我是使用ADO连接数据库,如果是BDE,就EhLibDBE单元)
==================================================================
二,由于官方的这种方法有时候不能满足我们的需求,就是如果本身查询的SQL语句含有,ORDER BY 的话
如:select * from top_trade ORDER BY top_xuhao,这个时候再用上面的方法就不好用了,就会报错。--毕竟ehlibado也是满足部分简单的需求
这个时候就要手工写代码了。
完成上面的两步后---即第一步和第二步后,不引用EhlibADO单元,而是手写下面的代码
procedure TfrmMain.WeiTopTradeShow_dbgehTitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh); begin case column.Title.SortMarker of smNoneEh: begin column.Title.SortMarker := smDownEh; frmClientDm.TopTradeShow_adoq.Sort := Column.FieldName + ' DESC'; end; smDownEh: begin frmClientDm.TopTradeShow_adoq.Sort := Column.FieldName + ' DESC'; end; smUpEh: begin frmClientDm.TopTradeShow_adoq.Sort := Column.FieldName + ' ASC'; end; end; end;
======================================================
2012.08.18-----补充自己写的比官方的 运行速度快啊,特别是大量数据的时候
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2012/08/18/2644951.html