我用DBGridEh1做排序，写如下代码，还要在DBGridEh1中设置什么属性，才能使他排序？

Question

我用DBGridEh1做排序，写如下代码，还要在DBGridEh1中设置什么属性，才能使他排序？procedure TForm1.DBGridEh1SortMarkingChanged(Sender: TObject);
var i :Integer;
    s:String;
   function DeleteStr(str:String; sunstr:String): String;
   var i:Integer;
   begin
     i := Pos(sunstr,str);
     if i <> 0 then Delete(str,i,Length(sunstr));
     Result := str;
   end;
begin
  s := '';
  for i := 0 to DBGridEh1.SortMarkedColumns.Count-1 do
   if DBGridEh1.SortMarkedColumns[i].Title.SortMarker = smUpEh then
     s := s + DBGridEh1.SortMarkedColumns[i].FieldName + ' DESC , '
   else
     s := s + DBGridEh1.SortMarkedColumns[i].FieldName + ', ';
  if s <> '' then s := ' ORDER BY ' + Copy(s,1,Length(s)-2);
  s := DeleteStr(s,'1');
  AQ_DBGridEh1.SQL.Strings[AQ_DBGridEh1.SQL.Count-2] := s;
  AQ_DBGridEh1.Close;
  AQ_DBGridEh1.Open; 
end;或
procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  case Column.Title.SortMarker of
    smNoneEh: Column.Title.SortMarker := smDownEh;
    smDownEh: Column.Title.SortMarker := smUpEh;
    smUpEh: Column.Title.SortMarker := smNoneEh;
  end;
end;

Answer 1

DBGridEh1.optionsth:=[dghAutoSortMarking];

Answer 2

错了.是:DBGridEh1.optionseh:=[dghAutoSortMarking];

Answer 3

设置与DBGridEh关联的数据集的Sort
例
 if dbgView.Columns[ACol].Title.SortMarker = smDownEh then
      rst.Sort := dbgView.Fields[ACol].FieldName + ' ASC '
   else
      rst.Sort := dbgView.Fields[ACol].FieldName + ' DESC ';