1、 在报表的属性中,代码选项卡,可以定义全局变量,如下:
- public Dim t as integer = 0
- public function LineT( h as String )
- If cint(h) >= 12 Then
- t = t + 1
- End If
- end function
- public function ResetT()
- t = 0
- end function
2、然后在其它表达式中调用:Code.t ,调用方法是Code.LineT("15")
这样就完成了全局变量的定义。