我想问那些说看Demo的人,尽在这里乱说,不懂就别说,我每个Demo都看了,垃圾,看Demo也不会要你告诉了。
我做的八行的,没有办法了,在前台把纪录行数读过来(MasterData1.DataSet.RangeEndCount),我是把它放在这个地方,添加一个DetailData1,上面放几个格子和MasterData1上面一样Memo,然后执行这个,我现在好多地方都要这么用。
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var i:integer;
begin
if <Line>=MasterData1.DataSet.RangeEndCount then
for I:=1 to 8-(MasterData1.DataSet.RangeEndCount mod 8)do
Engine.showBand(DetailData1);
end;
为MaterData添加一个Footer,然后再添加一个Child。
如果Footer没用的话可将其Visible := false ,在其OnBeforePrint事件中写脚本
for i:=0 to linCountdo
//lincount空行数
begin
showband(child);
end