1、 在报表的属性中,代码选项卡,可以定义全局变量,如下:

  1. public Dim t as integer = 0  
  2.   
  3. public function LineT( h as String )  
  4.   
  5.     If cint(h) >= 12 Then  
  6.         t = t + 1  
  7.     End If  
  8.   
  9. end function  
  10.   
  11. public function ResetT()  
  12.     t = 0  
  13. end function  

 

2、然后在其它表达式中调用:Code.t ,调用方法是Code.LineT("15")

 

这样就完成了全局变量的定义。


本文转载:CSDN博客