如何定义一个全局的数组变量？

FLY000

我想定义一个公共变量arrTabName，所有的VBS文件里的函数都可以使用这个变量

现在的问题是：
当程序运行到MainAction.vbs里的 arrTabName=arrInit("adduser",nColumnModify)        这句时，arrTabName可以得到arrInit("adduser",nColumnModify)的返回值；
但是运行到FunctionLibrary.vbs文件里的select_tab函数时，arrTabName数组里的值都是空的
Function select_tab(vsheetName,startNum)
        DataTable.GetSheet(vsheetName).SetCurrentRow(1)
        tabName=DataTable.Value(arrTabName(startNum-1),vsheetName)       
         Browser("i@Report通用WEB网络报表平台").Page("mainPage").Frame("mainFrame").WebElement("html tag:=DIV","innertext:="&tabName).Click
End Function

说明：
1. 在Statement.vbs里面定义了Public arrTabName(5)，且已经加载执行了

2. 在FunctionLibrary.vbs里面定义了arrInit函数；
Function arrInit(sheetName,nColumn)
        Dim arrlc(5)
        DataTable.GetSheet(sheetName).SetCurrentRow(1)
        For n1=1 to nColumn
                If  len(Trim(DataTable.Value(n1,sheetName)))<>0 Then
                        arrlc(cnt)=n1
                        cnt=cnt+1
                End If
        Next
        arrInit=arrlc
End Function

[ 本帖最后由 FLY000 于 2010-5-25 14:39 编辑 ]

TIB

Function arrInit(sheetName)
        DataTable.GetSheet(sheetName).SetCurrentRow(1)
        For n1=1 to nColumnAdd
                If  len(Trim(DataTable.Value(n1,sheetName)))<>0 Then
                        arrlc(cnt)=n1
                        cnt=cnt+1
                End If
        Next
        arrInit=arrlc
End Function

这个函数好像有问题吧，调试进去看看吧

FLY000

原帖由 TIB 于 2010-5-24 20:55 发表
Function arrInit(sheetName)
        DataTable.GetSheet(sheetName).SetCurrentRow(1)
        For n1=1 to nColumnAdd
                If  len(Trim(DataTable.Value(n1,sheetName)))0 Then
                ...

已经改了

[ 本帖最后由 FLY000 于 2010-5-25 11:57 编辑 ]

FLY000

唉，我快要疯了。。。。。。。。。。

FLY000

1. 在Statement.vbs里面定义了Public arrTabName(5)，且已经加载执行了
-----------------------

把这里 改为 dim arrTabName，就可以了