IndexDef en ADODataSet

[Jere_84]

Hola olbeup!, lo hago de esta manera por que es un reporte lo que estoy haciendo. No hay grilla, lo que tiene es un combo en el cual elige el campo por el que va a estar ordenada la información y otro botón en el cual puede seleccionar ascendente o descendente. No entiendo por que no esta funcionando....

[ecfisa]

Hola Jere_84.

Te hice un ejemplo que permite ordenar por todos los campos del TADODataSet de forma ascendente o descendente, tal vez te sirva de guía:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ADODataSet1.Open;
  with ComboBox1 do
  begin
    Clear;
    for i:= 0 to ADODataSet1.FieldCount-1 do
      Items.Add(ADODataSet1.Fields[i].FieldName);
    ItemIndex:= 0;
  end;
  with RadioGroup1 do
  begin
    Items.Clear;
    Items.Add('Ascendente');
    Items.Add('Descendente');
    ItemIndex:= 0;
  end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
const
  ASCDESC: array[Boolean] of string=('ASC','DESC');
begin
  with ComboBox1 do
    ADODataSet1.Sort:= Format('[%s] %s',[Items[ItemIndex],
      ASCDESC[Boolean(RadioGroup1.ItemIndex)]]);
end;

Saludos

[Jere_84]

Muchas Gracias ecfisa, voy a probar ese código nunca se me hubiera ocurrido programar:

Código Delphi [-]
ASCDESC[Boolean(RadioGroup1.ItemIndex)]]);

Simple y eficaz como debe ser!

Saludos cordiales.