Shared pageNumber as Integer
Public Function setPageNumber()
pageNumber = 1
Return newPage
End Function
Public Function checkIfFirstPage() as Boolean
Dim isFirstPage as Boolean
If (pageNumber = 1)
isFirstPage = true
pageNumber = pageNumber + 1
Else
isFirstPage = false
Endif
Return isFirstPage
End Function
1 回答
与在this post中重新设置页码类似,您可以添加自定义代码以检查您所在的页面,然后从第一页的 Headers 中调用
setPageNumber
函数,并在您的行的可见性表达式中调用checkIfFirstPage
函数:要添加自定义代码,请打开报告属性窗口,代码选项卡:
要仅在第一页上的报告 Headers 中调用
setPageNumber
,您可以在 Headers 中添加小文本框并将其设置为在白色上显示白色(因此它不会显示该值) . 将文本框的表达式设置为:解决问题的另一种方法是在 Headers 中使用变量和文本框,类似于post .