水晶报表自动换页

在报表上右键-->报表-->节专家-->详细资料-->在以下内容前新建页-- >右边的小方块中新建basic公式：

水晶报表常规页码是以下代码的"3",满3行记录的自动换行，碰到TBUserInfo.SerialNo与上一行记录不同也换行。

Shared SerialNoGG as Number
Shared RecordTemp as Number
if RecordNumber = 1 then
    SerialNoGG = {TBUserInfo.SerialNo}
    RecordTemp = 1
end if

   if RecordTemp mod 3 = 0 or {TBUserInfo.SerialNo}<>SerialNoGG then
      RecordTemp = 1
      SerialNoGG = {TBUserInfo.SerialNo}
      formula =true
   else
      RecordTemp = RecordTemp + 1
      formula =false
   end if