Ehlib3.0版本以上雖然支持排序功能，但不支持帶有Order By的SQL語句，而且排序很慢；我寫的這個排序函數(shù)，利用ADO的sort方法，排序很快，幾萬條數(shù)據(jù)也是很快。該函數(shù)支持Lookup字段排序，不支持計算字段排序，因為計算字段值在內(nèi)存里高速運算。排序分為：升序、降序和默認三種，支持排序圖標。

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 as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then
        Exit;

      if not (Sender as TDBGridEh).DataSource.DataSet.Active then
        Exit;

      FieldName := Column.FieldName;
      if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then
        Exit;

      if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =
        fkData then
        SortStr := FieldName
      else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =
        fkLookup then
        FieldName := (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).KeyFields
      else
        FieldName := '';

      if (FieldName = '') or (Pos(';', FieldName) > 0) then
        Exit;
      case Column.Title.SortMarker of
        smNoneEh:
          begin
            Column.Title.SortMarker := smUpEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=
              FieldName;

          end;
        smUpEh:
          begin
            Column.Title.SortMarker := smDownEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=
              FieldName + ' DESC';
          end;
        smDownEh:
          begin
            Column.Title.SortMarker := smNoneEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := '';
          end;
      end;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

--程序?qū)崿F(xiàn)如下：
--在DBGridEh的事件OnTitleBtnClick引用該函數(shù)即可：
procedure TFrmU_BasicSetup.dbgAddrCodeTitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
   SortDBGridEh(Sender, ACol, Column);
end;
--為了保證表格的每一列都能點擊觸發(fā)排序，你需要將你需要排序的列屬性
--  Title->TitleButton設置為True。