首页 相关文章 一个很实用的Ehlib排序函数适合ADO

一个很实用的Ehlib排序函数适合ADO

  Ehlib3.0版本以上虽然支持排序功能,但不支持带有Order By的SQL语句,而且排序很慢;我写的这个排序函数,利用ADO的sort方法,排序很快,几万条数据也是很快。该函数支持Lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算。排序分为:升序、降序和默认三种,支持排序图标。
  

  procedure SortDBGridEh(Sender: TObject; ACol: Integer;
   Column: TColumnEh);
  var
   FieldName, SortStr: string;
  begin
   Screen.Cursor := crSQLWait;
   try
   if (Sender is TDBGridEh) and
   ((Sender as TDBGridEh).DataSource.DataSet nil) then
   begin
   if not ((Sender a...[ 查看全文 ]

2016-02-19 标签:

一个很实用的Ehlib排序函数适合ADO的相关文章

手机页面
收藏网站 回到头部