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
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