Z
zgj_gd
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在用qrReport做一个报表。
我要每页后面加备注,所加了一个QRChildBand1。
现在需要在RChildBand1后面,根据一个for循环来自动产生child band,并且在产生的child Band上创建tqrlabel.
procedure TForm1.QRChildBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
i:Integer;
qrlPara:TQRLabel;
begin
for i:=0 to ndo
begin
//如何产生一个Child Band
//如何创建qrlPara
end;
end;
我要每页后面加备注,所加了一个QRChildBand1。
现在需要在RChildBand1后面,根据一个for循环来自动产生child band,并且在产生的child Band上创建tqrlabel.
procedure TForm1.QRChildBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
i:Integer;
qrlPara:TQRLabel;
begin
for i:=0 to ndo
begin
//如何产生一个Child Band
//如何创建qrlPara
end;
end;