procedure TTestRequestFrm.QRCompositeReport2AddReports(Sender: TObject); begin with QRCompositeReport2.Reports do begin Add(TestXFrm.QuickRep1); //显示的结果是 Add(TestECTFrm.QuickRep1); //有两张重复的报表(TestECTFrm.QuickRep1) //Add(TestCTFrm.QuickRep1); //Add(TestBFrm.MassPrint1); //Add(TestMRFrm.QuickRep1); end; end; procedure TTestRequestFrm.Button3Click(Sender: TObject); begin QRCompositeReport2.Preview ; end;
begin
with QRCompositeReport2.Reports do
begin
Add(TestXFrm.QuickRep1); //显示的结果是
Add(TestECTFrm.QuickRep1); //有两张重复的报表(TestECTFrm.QuickRep1)
//Add(TestCTFrm.QuickRep1);
//Add(TestBFrm.MassPrint1);
//Add(TestMRFrm.QuickRep1);
end;
end;
procedure TTestRequestFrm.Button3Click(Sender: TObject);
begin
QRCompositeReport2.Preview ;
end;