Ordenar un JvDBGrid

[luisgutierrezb]

Bueno, no es el jvDBGrid pero las jedi traen el JvUltmGrid ya tiene todo hecho para las busquedas incluso hay un evento que se llama on sort, si usas ADO para la base de datos, solo basta con AdoDataset.Sort = 'Campo ASC'; y listo, con eso ordenas y en el evento del JvUltmGrid te manda el campo y si es ascendente o descendente

[[BlueSteel]]

Hola

yo he utilizado este procedimiento....


en el Evento OnTitleClick del JvDBGrid

pongo esto

Código Delphi [-]
If Column.Title.Caption='RUT' then
   Begin
        IBQ_Select.Close;
        IBQ_Select.SQL.Clear;
        If Sw_1 = 0 Then
           Begin
                IBQ_Select.SQL.Add('Select * from "Proveedor" Order By "Pro_Rut" ASC');
                Sw_1 := 1;
           End
        Else
           Begin
                IBQ_Select.SQL.Add('Select * from "Proveedor" Order By "Pro_Rut" DESC');
                Sw_1 := 0;
           End;
        IBQ_Select.Open;
   End;

Bueno, esto lo hago por cada columna del DBGrid y me lo ordena ya sea ascendente o descendente...

Salu2

[[BlueSteel]]

Empezado por luisgutierrezb

Bueno, no es el jvDBGrid pero las jedi traen el JvUltmGrid ya tiene todo hecho para las busquedas incluso hay un evento que se llama on sort, si usas ADO para la base de datos, solo basta con AdoDataset.Sort = 'Campo ASC'; y listo, con eso ordenas y en el evento del JvUltmGrid te manda el campo y si es ascendente o descendente

Hola luisgutierrezb

estaba revisando esto, y podrias poner un ejemplo de esto, ya que no supe dar con esta característica...

Gracias y Salu2

[jafera]

Empezado por BlueSteel

Hola luisgutierrezb

estaba revisando esto, y podrias poner un ejemplo de esto, ya que no supe dar con esta característica...

Gracias y Salu2

Gracias por contestar.

Yo tampoco lo encontré

Saludos

[radenf]

Estimado jafera:

En este link coloqué el código que permite ordenar los grids.

http://www.clubdelphi.com/foros/showthread.php?t=73636

Espero que te sirva.
saludos

[luisgutierrezb]

Ahorita no tengo el Delphi a la mano, pero tiene una propiedad de sort, la activas, y en el evento de on sort del grid pones tu codigo, llegando a casa busco algun codigo de ejemplo...

[jafera]

Despues de unos dias de inactividad, pues me tengo que mudar de domicilio, ha decidido adaptar el codigo de BlueSteel y funciona de mil maravillas.

Hasta me hace ilusión ver que las cosas funcionan bien, es que los maestros sois unos cracks.

Gracias y saludos

Jafera

[jafera]

Olvide decir que en vez de colocar el código en cada título, uso una variable que me captura el nombre de la columna y con un solo código me sirve para cuantas columnas tenga en el Grid.

Código Delphi [-]
 
procedure TF_BuscarParc.DBGridBuscarTitleBtnClick(Sender: TObject;
  ACol: Integer; Field: TField);
var
c: string;
begin
        c:=Field.FieldName;
        OrdenarGrid.Close;
        OrdenarGrid.SQL.Clear;
        if Sw_1 = 0 then
        begin
                OrdenarGrid.SQL.Add ('SELECT ID_PARC, CODI_PARC, NOM_PARC FROM BOM0003 ORDER BY '+ c + ' ASC');
                Sw_1:=1;
        end
        else
        if Sw_1 = 1 then
        begin
                OrdenarGrid.SQL.Add ('SELECT ID_PARC, CODI_PARC, NOM_PARC FROM BOM0003 ORDER BY '+ c + ' DESC');
                Sw_1:=0;
        end;
        OrdenarGrid.Open;
        DBGridBuscar.SetFocus;
end;

Saludos

[pescriba]

Si activamos dgTitleClick en Options y TitleArrow y TitleButtons se mostrará una bonita flecha hacia arriba o hacia abajo en la columna sobre la que hemos hecho clic.

Para averiguar si es hacia arriba o hacia abajo podemos ver la propiedad

SortMarker

que nos indica el estado (smUp, smNone o smDown)

y ahora ya podemos hacer algo como

' ORDER BY ' + Column.FieldName
if SortMarker = smUP + ' ASC'
else if SortMarker = smDown + ' DESC'