Ver Mensaje Individual
  #10  
Antiguo 03-07-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola pani_alex.

Acabo de reproducir el caso a excepción del componente dbGrithEh que no uso. Es decir: SQLConnection -> SQLQuery -> DataSetProvider -> ClientDataSet -> DataSource -> DbGrid.

Te pongo la prueba que hice y me funciona correctamente en Firebird 2.5:
Código Delphi [-]
...
var
  ASCDESC :Boolean = True;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const
   ORDEN : array[Boolean] of string = ('ASC', 'DESC');
var
  fn: string;
begin
  ASCDESC := not ASCDESC;
  fn:= Format('%s %s',[Column.FieldName, ORDEN[ASCDESC]]);
  with SQLQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT T1.NOMBRE AS T1_NOMBRE, T2.NOMBRE T2_NOMBRE');
    SQL.Add('FROM TABLA1 T1,TABLA2 T2 ORDER BY ' + fn);
    Open;
    ClientDataSet1.Refresh;
  end;
end;
espero puedas sacar algo de ella.

Tal vez el componente dbGrithEh se comporte de modo diferente que el componente por defecto de Delphi (TDBGrid).

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita