当然可以自动排序了不过在DBGridEh1TitleBtnClick事件中写如下Code：
procedure TFormGcxmcx.DBGridEh1TitleBtnClick(Sender: TObject;
ACol: Integer;
Column: TColumnEh);
begin
case Column.Title.SortMarker of
smNoneEh :begin
column.Title.SortMarker :=smDownEh ;
ADODataSet1.Sort :=Column.FieldName + ' DESC';
end;
smDownEh :begin
column.Title.SortMarker :=smUpEh ;
ADODataSet1.Sort :=Column.FieldName + ' ASC';
end;
smUpEh :begin
Column.Title.SortMarker :=smNoneEh ;
ADODataSet1.Sort :='';
end;
end;
end;
