fastreport - 如果页面上没有数据，如何在快速报告中隐藏页面？

Question

我正在设计一个包含两页的快速报告，在第二页我使用了页眉/页脚、组页眉/页脚和主数据带。如果主数据带中没有数据，我必须隐藏 page2。主日期带的名称是“masterdata2”。我正在尝试使用的帕斯卡脚本

procedure Page2OnAfterPrint(Sender: TfrxComponent);
begin
          if MasterData2.RowCount <> 0 then                                                                      
              Page2.visible :=true
              else
               Page2.visible :=false;                                              

end;

但如果第 2 页上没有数据，它不会隐藏要打印的页面。任何帮助？

Answer 1

如果你尝试一下：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyPage: TfrxPage;
begin
  if ADOQuery1.RecordCount > 0 then
  begin
    MyPage := frxReport1.FindComponent('Page1') as TfrxPage;
    MyPage.Visible := False;
  end;
  frxReport1.ShowReport;
end;

有关更多信息，请在 Google 中查找“FR4.6.ProgrammerManual-en.pdf”。