|
3测试积点
本帖最后由 yanyouqing 于 2012-3-28 08:49 编辑
Dim strList
strList=DotnetFactory.CreateInstance("System.Collections.ArrayList")
strList= Checked_CheckBox
Function Checked_CheckBox()
Dim rows,columns,row_count,objCheckBox
Dim myList
Set myList = DotnetFactory.CreateInstance("System.Collections.ArrayList")'调用DotnetFactory穿件一个ArrayList实例
row_count=Browser("呼叫中心").Page("呼叫中心").Frame("_workspaceMain").WebTable("序号").RowCount'获取webtable的总行数
columns=7'checkbox所在列
rows=RandomNumber(1,row_count)
If rows=1 Then'如果rows=1,循环webtable将标题全部添加到myList中
For i=1 to row_count
myList.Add(Browser("呼叫中心").Page("呼叫中心").Frame("_workspaceMain").WebTable("序号").GetCellData(i,2))
Next
Checked_CheckBox=myList
Else
myList.Add(Browser("呼叫中心").Page("呼叫中心").Frame("_workspaceMain").WebTable("序号").GetCellData(rows,2))'获取webtable中指定行和列的文本字符串
Checked_CheckBox=myList
End If
Set objCheckBox=Browser("呼叫中心").Page("呼叫中心").Frame("_workspaceMain").WebTable("序号").ChildItem(rows,columns,"WebCheckBox",0)'获取指定行和列上的webcheckbox
objCheckBox.Set "ON"'随机勾选checkbox
End Function
为什么strList= Checked_CheckBox,strList老是空值? |
最佳答案
查看完整内容
本帖最后由 yanyouqing 于 2012-3-28 08:49 编辑
Dim strList
set strList=DotnetFactory.CreateInstance("System.Collections.ArrayList") '这句多余了
set strList= Checked_CheckBox
print strList.item(i)
Function Checked_CheckBox()
Dim rows,columns,row_count,objCheckBox
Dim myList
Set myList = DotnetFactory.CreateInstance("System.Collections.ArrayList")'调用DotnetFactory穿件 ...
|