option compare database dim row as long dim rowsinpage as integer private sub 主體_format(cancel as integer, formatcount as integer) rowsinpage = 7 row = row + 1 if row >= rowsinpage then me.pagebreak18.visible = true row = -1 else me.pagebreak18.visible = false end if end sub
方法二：
在報表的代碼界面里面寫入以下代碼：
option compare database dim row as long private sub 主體_format(cancel as integer, formatcount as integer) row = row + 1 if me.section(acdetail).forcenewpage = 1 then me.section(acdetail).forcenewpage = 0 else if row mod 7 = 0 then me.section(acdetail).forcenewpage = 1 row = 0 end if end if end sub
