Ver Mensaje Individual
  #1  
Antiguo 29-01-2007
mierda mierda is offline
Miembro
 
Registrado: may 2006
Posts: 129
Reputación: 18
mierda Va por buen camino
forcenewpage y forcenewcolumn, qreport ...

Hola que tal ... trabajo con delphi 5 y s.o. win2000, contra una bbdd sqlserver 2000, tengo una tabla con estos datos:

Código Delphi [-]
codigo
123456789012
 777777777777
 123456789014
 123456789015
 123456789016
 777777777777
 123456789016
 123456789016
 123456789016
 123456789016
 777777777777
 123456789016
 123456789016
 123456789016
 123456789016
 777777777777
 123456789016
 777777777777
 123456789016

y tengo un report, en el cual saco el codigo.

en el onprint de este codigo hago esto:

Código Delphi [-]
 
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
if copy(ADOTable1.fieldbyname('codigo').AsString,0,12) = '777777777777' then
  begin
    QRBand1.ForceNewPage := true;
  end
else
  begin
    QRBand1.ForceNewpage := false;
   end;
end;

Pues con el forcenewpage funciona perfectamente, pero si le hago un forcenewcolumn no va la primera vez que tiene que saltar de columna, despues si.

Es un bug?? tengo que hacer algo antes!!?

pd: ya que estamos ... como podria hacer que si el codigo es 7777777777 no se muestre el qrband?!?!!?

Un saludo y gracias!!
Responder Con Cita