B
bbscom
Unregistered / Unconfirmed
GUEST, unregistred user!
实例说明:
在Fr报表设计器Page1里,建一个TfrxSubreport子报表,这时Page1里有叫Subreport1,双击它时就会到这个子报表页叫Page2。
请问怎么在程序里动态生成这个报表? 急!!!解决此问题再加150分。
procedure TForm1.Button2Click(Sender: TObject);
var
Page: TfrxReportPage;
SubRep:TfrxSubreport;
begin
frxReport1.Clear;
Page := TfrxReportPage.Create(frxReport1);
Page.CreateUniqueName;
Page.SetDefaults;
SubRep := TfrxSubreport.Create(Page);
SubRep.Parent:=Page;
SubRep.CreateUniqueName;
SubRep.Top:=100;
SubRep.Left:=100;
frxReport1.DesignReport;
end;
// 生成后Page2不见,Subreport1无法连接到Page2
在Fr报表设计器Page1里,建一个TfrxSubreport子报表,这时Page1里有叫Subreport1,双击它时就会到这个子报表页叫Page2。
请问怎么在程序里动态生成这个报表? 急!!!解决此问题再加150分。
procedure TForm1.Button2Click(Sender: TObject);
var
Page: TfrxReportPage;
SubRep:TfrxSubreport;
begin
frxReport1.Clear;
Page := TfrxReportPage.Create(frxReport1);
Page.CreateUniqueName;
Page.SetDefaults;
SubRep := TfrxSubreport.Create(Page);
SubRep.Parent:=Page;
SubRep.CreateUniqueName;
SubRep.Top:=100;
SubRep.Left:=100;
frxReport1.DesignReport;
end;
// 生成后Page2不见,Subreport1无法连接到Page2