codigo errado
preciso criar 10 shapes onde pega os dados da tabela e por exemplo se tem 3 dados na tabela coloca nos tres primeiros shapes e desenha tambem os outros sete em branco.
Qual o problema deste código, não faz.
No quickreport somente tenho meu qrdbtext.
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.
Qual o problema deste código, não faz.
No quickreport somente tenho meu qrdbtext.
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.
Anonymous
Curtidas 0
Respostas
Anonymous
13/03/2003
da um tempo ai que vou responder
GOSTEI 0
Anonymous
13/03/2003
tente nao jogar o shape no mesmo lugar , mais tem mais coisa errada poderia falar mais sobre o que vai fazer pq o shape vc nao escreve nada ...
GOSTEI 0
Anonymous
13/03/2003
OLHA SO EU TENHO UMA TABELA.DESTA TABELA POR EXEMPLO EU TENHO QUE TRAZER 1 E 2.ENTAO TENHO QUE JOGAR DENTRO DOS SHAPES 1 E 2 (1 NO PRIMEIRO SHAPE E 2 NO SEGUNDO).OS OUTROS 8 SHAPES DEVERÃO APARECER VAZIOS NO MESMO FORMATO DOS SHAPES ANTERIORES.
GOSTEI 0
Anonymous
13/03/2003
mais vc pegou a dica acima que vc ta criando 10 shapes e ta jogando eles em cima do outro ... entao so vai aparecer um só
GOSTEI 0
Anonymous
13/03/2003
outra dica vc nao precisa fazer um while para saber quantos registros tem na tabela faiz isso aqui :
cont := dtmod.Tblfilhos.RecordCount ;
cont := dtmod.Tblfilhos.RecordCount ;
GOSTEI 0