dim count as integer
public function GetCount() as integer
    count=count+1
    return count
end function

------解决方案--------------------

如果硬是要自己写分页的话，那么可以通过报表参数来实现序列号:
自定义代码：
VB code

dim count as integer
public function GetCount(c) as integer
    if(count<c) then 
        count=c
    end if
    count=count+1
    return count
end function

------解决方案--------------------
用总计公式可以试试看

右击组里的任意字段，选择“插入”-〉“运行总计”，进入“创建运行总和”对话框；  

在“汇总类型”下拉列表框选择“计数”；  

在“求值”里选中“对于每个记录”；  

在“重置”里选择“组更改时”；