[mantraxer21]

Estimados:

tengo una Grid (JvDBUltimGrid) con un TibQuery+ su Source, funcionando muy bien , exportable a excel, etc... el tema es que necesito que el cliente pueda ordenar "ciertas" columnas de la Grilla de Forma Asecendente, he visto unas cosas por ahi, pero me da errores...

Ejemplo.

Evento OnTitleClick

Código Delphi [-]
var
  iX : integer;
  sOrden : string;
begin
  //orden según columna pinchada  0 = Codigo Cliente, 2= Cliente, 5= Comunas
  Case Column.Index Of
    0 : sOrden := 'IDCLIENTE';
    1 : sOrden := 'CLIENTE';
    2 : sOrden := 'IDCOMUNA';
   //
  end;
  qClientes.Close;
  qClientes.SQL.Text := 'Select * from clientes order by '+sOrden;
  qClientes.Open;
  for iX := 0 to 2 do
    if Column.Index <> iX then
      GrillaClientes.Columns.Items[iX].Color := clWhite
    else
      Column.Color := clCream;

end;

Nosé si me pueden echar una mano !

Gracias