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") 这样就完成了全局变量的定义。