排序

Question

procedure ClientDataSetOrder;
  //var Descend: Byte;
  begin
    {
    with (TDBGrid(Column.Grid).DataSource.DataSet as TClientDataSet) do
    begin
      Descend := Descend xor Round(Exp(Column.Index * Ln(2)));
      if Column.Field.DataType<ftAutoInc then
      begin
        if (Descend and Round(Exp(Ln(2) * Column.Index)))=0 then
        begin
          AddIndex(Column.FieldName + 'InxDES' , Column.FieldName, [ixDescending],'','',0);
          IndexName := Column.FieldName + 'InxDES';
        end else
        begin
          AddIndex(Column.FieldName + 'Inx' ,Column.FieldName ,[],'','',0);
          IndexName := Column.FieldName + 'Inx';
        end;
      end;
    end;
    }
  end;

Answer 1

用sql语言建一个该字段的索引，然后排序就行了。（可以通过点标题栏触发）