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

Question

如题。

Answer 1

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.

Answer 2

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

Answer 3

谢谢！
我按您的方法做如下：
  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开始了，不知道为什么呢？

Answer 4

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