dbgrideh排序的奇怪问题

做的一个项目中，dbgrideh某一列点击标题排序，出现莫名其妙的问题，排出顺序根本不对，乱七八糟。
最后发现是 adoquery的sql语句问题：
select a.*,b.*,c.* from a left outer join b on a.电表ID=b.电表ID
left outer join c on a.电表ID= c.电表ID
adoquery中就会有3个电表ID的字段，当我重新优化sql语句只保留一个电表ID后，点击标题排序正常！
我认为在dbgrideh的TitleBtnClick事件里的参数Column应该可以正确识别出是哪个电表ID，难道是dbgrideh的BUG？


-----------------------------------------------------------------
顺便记两个有关标题排序的东西
1、设置dghAutoSortMarking属性为true  
2、设置希望排序的Column的TitleButton属性为true  
3、uses列表中增加EhlibAdo  
    这样就可以了，不需要写代码。
这种做法的确简单省事，但弊病是速度慢，它应该是将dbgrideh关联的数据集控件的sql语句加上“order by field”
然后重新关闭打开数据集。如果你的sql语句中有 order by 的话，dbgrideh点击标题就会报错
-----------------------------------------------------------------

procedure TFrmDBCZ_CZCBSH.DBGridEh_DJTitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  inherited;
  SortDBGridEh(Sender,ACol,Column);
end;

procedure SortDBGridEh(Sender: TObject; ACol: Integer; Column: TColumnEh);
var
  FieldName :  string ;
  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
          TCustomADODataSet((Sender  as  TDBGridEh).DataSource.DataSet).Sort : = FieldName + '  DESC ' ;
        end;
        smUpEh:
        begin
          TCustomADODataSet((Sender  as  TDBGridEh).DataSource.DataSet).Sort : = FieldName  +   '  DESC ' ;
        end;
        smDownEh:
        begin
          TCustomADODataSet((Sender  as  TDBGridEh).DataSource.DataSet).Sort : =  FieldName;
        end;
      end;
    end;
   finally
    Screen.Cursor : =  crDefault;
  end;
end;