Ordenar datos en un DBGrid con click en cabecera

[roman]

Pero el código que pone totote está pensado específicamente para un ClientDataSet lo cual da la enorme ventaja de no tener que reconsultar a la base. El ordenamiento se hace en memoria, por lo cual es mucho más rápido. Además, el código es genérico; sirve para cualquier ClientDataSet sin importar el nombre de los campos ni la columna seleccionada.

Eso sí, creo que se puede simplificar un poco

Código Delphi [-]
procedure SortCDS(DataSet: TClientDataSet; Column: TColumn);
var
  IndexName: String;
  IndexOptions: TIndexOptions;

begin
  if DataSet.IndexName = Column.FieldName + '_IdxA' then
  begin
    IndexName := Column.FieldName + '_IdxD';
    IndexOptions := [ixDescending];
  end
  else
  begin
    IndexName := Column.FieldName + '_IdxA';
    IndexOptions := [];
  end;

  if DataSet.IndexDefs.IndexOf(IndexName) = -1 then
    DataSet.AddIndex(IndexName, Column.FieldName, IndexOptions);

  DataSet.IndexName := IndexName;
end;

// Saludos

[totote]

Bien roman quedó bastante simplificado, igualmente yo lo postee así porque así lo encontre

Saludos

[roman]

Tenía un error yo. La línea

Código Delphi [-]
DataSet.AddIndex(IndexName, Column.FieldName, [ixDescending]);

la cambié por

Código Delphi [-]
DataSet.AddIndex(IndexName, Column.FieldName, IndexOptions);

// Saludos

[[BlueSteel]]

Empezado por roman

Pero el código que pone totote está pensado específicamente para un ClientDataSet lo cual da la enorme ventaja de no tener que reconsultar a la base. El ordenamiento se hace en memoria, por lo cual es mucho más rápido. Además, el código es genérico; sirve para cualquier ClientDataSet sin importar el nombre de los campos ni la columna seleccionada.

Eso sí, creo que se puede simplificar un poco


Código Delphi [-]
procedure SortCDS(DataSet: TClientDataSet; Column: TColumn);
var
IndexName: String;
IndexOptions: TIndexOptions;

begin
if DataSet.IndexName = Column.FieldName + '_IdxA' then
begin
IndexName := Column.FieldName + '_IdxD';
IndexOptions := [ixDescending];
end
else
begin
IndexName := Column.FieldName + '_IdxA';
IndexOptions := [];
end;

if DataSet.IndexDefs.IndexOf(IndexName) = -1 then
DataSet.AddIndex(IndexName, Column.FieldName, [ixDescending]);

DataSet.IndexName := IndexName;
end;





// Saludos

Interesante el código.. esto me simplificaria varias lineas...

ahora donde se debe dejar este código y como se vincula a un dbGrid....??? para cuando pinchen los titulos se ordene....

Salu2

[roman]

Empezado por BlueSteel

ahora donde se debe dejar este código y como se vincula a un dbGrid....??? para cuando pinchen los titulos se ordene....

Pues como se indica en el código original, en el evento OnTitleClick del DBGrid:

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  SortCDS(ClientDataSet1, Column);
end;

// Saludos

[[BlueSteel]]

Empezado por roman

Pues como se indica en el código original, en el evento OnTitleClick del DBGrid:


Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
SortCDS(ClientDataSet1, Column);
end;





// Saludos

Ok...gracias...

lo estoy probando..aunque no con muy buenos resultados... pero seguiré intentando..

Salu2

[totote]

El Código simplificado de Roman no lo pude probar, pero el código original el único error que le encontre fue que una vez utilizado el código, se desvincula el DBGrid y queda abierto el ClientDataSet, al volver a vincular el DBGrid me genera erro al querer encontrar las columnas con la cabezera modificada, despúes a mi me anduvo sin ningún problema.

Saludos

[roman]

Empezado por BlueSteel

lo estoy probando..aunque no con muy buenos resultados

Empezado por totote

El Código simplificado de Roman no lo pude probar

¿O sea que no sirve?

// Saludos

[totote]

No, no quise decir que no sirve sino que no lo he probado para ver como funciona realmete, para saber si anda o no hay que utilizarlo.

Saludos