codigo errado
06/03/2003
0
PESSOAL TENHO UMA TABELA ONDE PEGO OS DADOS QUE TENHO QUE JOGAR UM A UM DENTRO DOS SHAPES NO QUICK REPORT. QUANDO EU TENHO SOMENTE 3 DADOS QUE VEM DA TABELA TEM QUE APARECER OS 7 SHAPES VAZIOS E OS TRES NOS PRIMEIROS SHAPES.PRECISO DE 10 SHAPES.
NO EVENTO BEFOREPRINT EU COLOQUEI MAS NÃO ESTÁ DANDO CERTO:
var
qShape : TQrShape;
begin
while not dtmod.Tblfilhos.Eof do
begin
cont := cont + 1 ;
dtmod.Tblfilhos.Next ;
end;
cont := 10 - cont;
i := 30;
while cont >= 0 do
begin
if cont = 1 then
qShape := TQrShape.Create(self);
qShape.Parent := QRBand2;
qShape.Top := 2;
qShape.Left := 48;
qShape.Width := 429;
qShape.Height :=36;
dtmod.Tblfilhos.Next ;
end;
end;
end.
NO EVENTO BEFOREPRINT EU COLOQUEI MAS NÃO ESTÁ DANDO CERTO:
var
qShape : TQrShape;
begin
while not dtmod.Tblfilhos.Eof do
begin
cont := cont + 1 ;
dtmod.Tblfilhos.Next ;
end;
cont := 10 - cont;
i := 30;
while cont >= 0 do
begin
if cont = 1 then
qShape := TQrShape.Create(self);
qShape.Parent := QRBand2;
qShape.Top := 2;
qShape.Left := 48;
qShape.Width := 429;
qShape.Height :=36;
dtmod.Tblfilhos.Next ;
end;
end;
end.
Celi
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)