请教一个关于fastreport的问题？每页的行号从1开始，并把这页的总行数显示到页面的底部？

[softheaded]

如题。

[softheaded]

为什么第一页行号是从1开始的，第二页以后却是从0开始的呢？

[hongqi162]

把i:=0;修改成i:=1试试

[hongqi162]

var i:integer;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
i:=i+1;
if i>3 then //每頁固定行數為3
begin
engine.newpage;
i:=1;
end;
end;

begin
i:=0;
end.

[hongqi162]

机器上没有fastreport，你调试一下看看

[softheaded]

谢谢！
我按您的方法做如下：
1> 在FastReport里定义一个变量i
2> 在ReportBand的(OnBeforePrint)里初始化i:=0;
3> 在主数据band的(OnBeforePrint)里i:=i+1;
在PageFooter1的OnBeforePrint里：
while FreeSpace >= 26 do
ShowBand(Child1);
主数据项的每个行加行号为[i]
在页面的底部加Memo，内容为[i]
结果出现了如下问题：
　　第一页的页面的底部的Memo的数据为21
第二页的页面序号却从0开始了，不知道为什么呢？

[softheaded]

谢谢，同样不好用。
我加个判断语句，if page#=1 then i:=0 else i:=1;

[zlz7803]

[LINETHROUGH#]