Tema: Qrdbtext
Ver Mensaje Individual
  #2  
Antiguo 15-12-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Como un QrDbText, estará conectado a una fuente de datos y si el informe tiene por ejemplo 200 líneas solamente podremos guardar una de ellas en la siguiente asignación se perdería la anterior.

Un pequeño ejemplo puede ser éste que sigue, aunque no sé si exactamente esto lo que pides:
Código Delphi [-]
   private
     { Private declarations }
   public
   MiVariable:String;
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
   var PrintBand: Boolean);
 begin
 MiVariable:=table1company.AsString ;
 ShowMessage(MiVariable);
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 QuickRep1.PreviewModal;
 end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita