Ver Mensaje Individual
  #6  
Antiguo 15-06-2007
Mfi Mfi is offline
Miembro
 
Registrado: may 2007
Posts: 16
Reputación: 0
Mfi Va por buen camino
el resultado esperado podría ser ese.. aunque por las imágenes no veo bien como lo has hecho, el caso es que lo he conseguido con el evento OnNeedData, metiendole los datos "a mano".


Código Delphi [-]
procedure TfrmReport1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
const i:integer =0;
begin
    
       if not IBTable1.eof then
          begin
            i:=i+1;
            qrlabel1.Caption := IBtable1.Fieldbyname('FECHA').AsString;
            qrlabel2.Caption := IBtable1.Fieldbyname('TECNICO').AsString;
            qrlabel3.Caption := IBtable1.Fieldbyname('DESC').AsString;
            moredata:= true;
          end
          else if i<15 then
               begin
                 i:=i+1;
                 qrlabel1.Caption := 'Añadido';
                 qrlabel2.Caption := 'Añadido';
                 qrlabel3.Caption := 'Añadido';
                 moredata :=true;
               end else MoreData := False;


       if moredata then
            IBtable1.next;
end;

Bueno.. el IBTable1.Next se podría meter perfectamente en el primer if.. cambiar el 'Añadido' por cadenas en blanco ' ' y seguro que el código se puede optimizar un poco.. pero el caso es que según está funciona, muchas gracias a todos por la ayuda.

Última edición por Mfi fecha: 15-06-2007 a las 17:50:03.
Responder Con Cita