A
andy_lim
Unregistered / Unconfirmed
GUEST, unregistred user!
Rave中用以下代码，取总页数，一直都是1页，为何？该怎么解决？？procedure TForm1.Button1Click(Sender: TObject);var MyReport: TRaveReport;
begin
RvProject1.Open;
With RvProject1.ProjMando
begin
MyReport := FindRaveComponent('Report1',nil) as TRaveReport;
//查找Report messagebox(0,pchar(IntToStr(MyReport.PageList.Count)), '总页数', mb_ok);//获取总页数 end;
{ with } RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end;
BTW，在Rave报告设计器中已经做了这一个步骤：(1)在右侧对象树面版中选择对应的Report!(2)通过左侧的对象属性面板修改对应Report的PageList属性，[Add Page]把所需要的页加入到 Page List 中！谢谢！！
begin
RvProject1.Open;
With RvProject1.ProjMando
begin
MyReport := FindRaveComponent('Report1',nil) as TRaveReport;
//查找Report messagebox(0,pchar(IntToStr(MyReport.PageList.Count)), '总页数', mb_ok);//获取总页数 end;
{ with } RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end;
BTW，在Rave报告设计器中已经做了这一个步骤：(1)在右侧对象树面版中选择对应的Report!(2)通过左侧的对象属性面板修改对应Report的PageList属性，[Add Page]把所需要的页加入到 Page List 中！谢谢！！