Ver Mensaje Individual
  #2  
Antiguo 29-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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 oscarac.

A ver si te entendí...

Supongamos que tengas:
.- Una tabla: 'TU_TABLA' con varios campos entre los que están: 'n_IMP' y 'u_IMP'.
.- Un TRadioGroup cuyos items son: 'Moneda nacional' y 'Moneda extranjera'.

Una forma de hacerlo sería
Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  Moneda: string;
begin
  case RadioGroup1.ItemIndex of
    0: Moneda:= ' n_IMP  ';
    1: Monead:= ' u_IMP ';
  end;
  with IBQuery1 do
  begin
    SQL.Text:= 'SELECT CAMPO_1,CAMPO_2,...,CAMPO_N,' + Moneda + 
               ' FROM TU_TABLA WHERE...';
    Open;
  end;
end;

Es para ejemplificar. Por supuesto debés adaptar la consulta y utilizar la estructura de decisión que prefieras.

Saludos.

Última edición por ecfisa fecha: 29-08-2010 a las 10:05:25.
Responder Con Cita