请问各位高手,如何只利用TTable控件实现记录的排序？？？ 谢谢指点！

Question

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
DataSet:TdataSet;
begin
  DataSet := Column.Field.DataSet;
    if DataSet is TCustomDataSet then
    begin
      screen.cursor:=crhourglass;
      try
        with TCustomDataSet(DataSet) do
          if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then
            begin
              Sort := Column.Field.FieldName + ' DESC';
              StatusBar1.panels[0].Text:=column.field.DisplayLabel+ ' :按下降排序';
            end
          else
            begin
              Sort := Column.Field.FieldName + ' ASC';
              StatusBar1.panels[0].Text:=column.field.DisplayLabel+ ' :按上升排序';
            end;
      finally
        screen.cursor:=crdefault;
      end;
    end;
end;
回答完了，请加分！

Answer 1

设置TABEL的indexfieldname为要排序的字段名就可以了

Answer 2

对了，上面的只试用于Adotable

Answer 3

对了，上面的只试用于Adotable
TCustomDataSet应该是TCustomAdoDataSet

Answer 4

 2 wanwangzhiwang(万王之王)　：
   TcustomDataset在那个单元里声明的？

Answer 5

设置TABEL的indexfieldname为要排序的字段名就可以了 

Answer 6

thedream(梦幻使者)的方法也可以，但必须是索引字段才行！

Answer 7

Thanks for your help !!!

Answer 8

设置TABEL的indexfieldname为要排序的字段名就可以了 ,但要先建立索引