Impressão de consulta runtime

Delphi

19/05/2006

Tou precisando de ajuda com o quick report!

Tenho um programa onde crio uma consulta SQL runtime. Gostaria de poder imprimir os dados do resulatdo com o dbgrid. Como pode ser uma tabela qqer do banco de dados, tenho q criar os componentes QRDBText em tempo de execução.. e é aí q q não tou sabendo... tive uma idéia, mas não funcionou.. os campos da tabela são passados prá consulta através de um Tlist chamada lList

procedure TPesqFProd.Imprime;
var
i,iTop,iLeft,iWidth:integer;
txt:TQRDBText;
begin
i:=0;
iTop:=0;
iLeft:=0;
iWidth:=query1.FieldDefs.Items[0].Size;
while i<=lList.count-1 do
begin
txt:=TQRDBText.create(self);
txt.DataSet:=Query1;
txt.dataField:=query1.FieldDefs.Items[i].Name;
txt.Left:=iLeft;
txt.top:=iTop;
txt.width:=iWidth*8;
inc(i);

if i<=lList.count-1 then
iWidth:=query1.FieldDefs.Items[i].Size;

iLeft:=iLeft+iWidth*8;
if iLeft>718 then
begin
iTop:=iTop+30;
iLeft:=0;
end;
end;
end;

Não ví nenhuma propriedade prá dizer q o QRDBText pertence à banda rbDetail. Alguém tem uma idéia?


Luis.wolff

Luis.wolff

Curtidas 0

Respostas

M@gnun

M@gnun

19/05/2006

QRDBText.Parent := QRBand1;


GOSTEI 0
Luis.wolff

Luis.wolff

19/05/2006

Vou tentar... obrigado!


GOSTEI 0
POSTAR