Codigo errado.
Preciso criar 10 shapes dinamicamnte que receba os dados de minha tabela.Estou fazendo algo errado.Alguém tem alguma sugestão.
Celi
Curtidas 0
Respostas
Anonymous
28/02/2003
Mostre o código...
GOSTEI 0
Celi
28/02/2003
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.
GOSTEI 0