Question

我有一个FastReport数据。我想仅在行数大于32时显示PageFooter，如果少于32行则隐藏它。

我想要FastReport提示或Delphi代码。

任何帮助都将不胜感激。

Answer 1

<强>解决方案：

可以更改系统备忘录的文本，而不是显示（隐藏）页脚页带。将SystemMemo对象放在PageFooter band上并使用此系统备忘录的OnBeforePrint事件。此示例适用于显示每页行数的页脚页边距。

<强>代码：

procedure SysMemo1OnBeforePrint(Sender: TfrxComponent);
begin
   if COUNT(MasterData1) >= 32 then begin
      SysMemo1.Text := '[Page#]';
      end
   else begin
      SysMemo1.Text := '';                                  
   end;                 
end;

Answer 2

您可以仅在报告脚本的主要过程中更改PageHeader的可见性：

begin
    PageHeader1.Visible := MasterData1.DataSet.RecordCount > 32;                                                                                                                          
end.

当行数大于32时，快速报告显示pagefooter

2 个答案: