Delphi FASTreport 4 自动补空行的方法

发布时间 2023-06-12 10:05:41作者: 特工龙井茶

写了一个比较简单易懂易调试的补空行的方法

在masterdata的OnAfterPrint加入事件

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var
i,j,k,hh:integer;   
hs:string;   //当前行数
begin
i:=1;
hh:=18;    //数据页每页行数
j:=MasterData1.dataset.recordcount;
k:=hh-j mod hh;
hs:=<line>;
if strtoint(hs)=j then
begin
child1.visible:=true;
while i<=k do
begin
engine.showband(child1);
i:=i+1;
end;
测试很成功,大家可以试试