|
8#
楼主 |
发表于 2007-11-5 18:13:29
|
只看该作者
有了一些进展,下列代码,检查checkbox已经可以正确显示,可是在第一个if语句得到的结果是“缺少对象: '[string: "1"]'”,循环后依次显示找不到对象1,2,3 ,为什么找不到对象呢?
t=Browser("节目信息新增").Page("节目信息新增").WebTable("集号").RowCount
For chk=3 to t
set webeditobj=Browser("节目信息新增_2").Page("节目信息新增").WebTable("集号").ChildItem(chk,2,"WebEdit",0)
Set i =webeditobj.GetROProperty("value")
If i=chk-2 Then
msgbox"集号正确,集号为"&i&""
else
msgbox"集号错误,集号为"&i&""
End If
Set webChkObj= Browser("节目信息新增").Page("节目信息新增").WebTable("集号").ChildItem(chk,1,"WebCheckBox",0)
If webChkObj.object.checked=false Then
msgbox"第"&chk-2&"条选项没有被选中"
else
msgbox"第"&chk-2&"条选项被选中"
End If
Next |
|