51Testing软件测试论坛

标题: 如何定义一个全局的数组变量？ [打印本页]

作者: FLY000 时间: 2010-5-24 18:42
标题: 如何定义一个全局的数组变量？
我想定义一个公共变量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 时间: 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
                     arrlc(cnt)=n1
                     cnt=cnt+1
            End If
      Next
      arrInit=arrlc
End Function

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

作者: FLY000 时间: 2010-5-25 09:44
标题: 如何定义一个公共的数组变量？

原帖由 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 时间: 2010-5-25 16:12
唉，我快要疯了。。。。。。。。。。

作者: FLY000 时间: 2010-5-26 11:32
1. 在Statement.vbs里面定义了Public arrTabName(5)，且已经加载执行了
-----------------------

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)