看了网上的一些资料,发现了方法,但是描述都不是很详细,也至于每次都无法实现,只能在数据集中做补空行处理。今天终于弄通了,贴出方法,以备后续之用。
1. <1>在报表上加一个Child(在控件设计器中名称叫“子(W)”).其Name取名叫Child1。
<2>此Band就是我们要添加的空行(若你的报表明细中有表格线,明细Band(如 DetailData中也有表格线,请在添加的Child1中也照样添加好表格线)。
Band的高度设置为明细Band的高度。
<3>.经过<2>的设置后,此Band的名称在报表中显示为: Child:Child1
2.在报表上加一个Footer 的Band(不是PageFooter)。(若你的报表不需要此Footer,可以将此BAND的高度弄成0).
添加此Band的理由:需要利用此Footer的OnBeforePrint事件计算补空行。
3.在Footer的Band的OnBeforePrint事件中写入动态添加空行的代码:
4.需要设置需要补充到多少行
<code>
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i, LineCount: Integer;
begin
LineCount :=<Line#>;
for i := LineCount to 9 do
begin
engine.showband(Child1);
end;
end;
</code>
© 版权声明
文章版权归作者所有,未经允许请勿转载。