Ver Mensaje Individual
  #6  
Antiguo 05-04-2012
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.

Creo que no me he explicado con claridad, voy a intentarlo paso a paso.
  • Crea un campo persistente en el TADOQuery que por defecto se llamará el nombre de tu quey ADOQueryCalculos + el nombre de campo que tenga tu tabla; suponiendo que el nombre de campo sea RUTA el nombre sería: ADOQueryCalculosRUTA.
  • En el TQuickRep poné un componente TQRSubDetail, no un TQRBand con su propiedad BandType = rbSubDetail ya que no es lo mismo. En la propiedad DataSet del TQRSubDetail poné ADOQueryCalculos y agregá un TQRImage dentro de esta banda.
  • Luego en el evento AfterScroll (ADOQueryCalculosAfterScroll) agregá:
    Código:
    void __fastcall TForm1::ADOQueryCalculosAfterScroll(TDataSet *DataSet) {
      QRImage1->Picture->LoadFromFile(ADOQueryCalculosRUTA->Value);
    }
  • Por último y para probarlo agrega un TButton y este código para el evento OnClick:
    Código:
    void __fastcall TForm1::Button1Click(TObject *Sender) {
      QuickRep1->Preview();
    }

De ese modo tiene que funcionarte sin problemas.

Saludos.
__________________
Daniel Didriksen

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