Fórum Impressão de consulta runtime #321770

19/05/2006

0

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

Responder

Posts

19/05/2006

M@gnun

QRDBText.Parent := QRBand1;


Responder

Gostei + 0

20/05/2006

Luis.wolff

Vou tentar... obrigado!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar