在webtable中,检查checkbox是否全都选中了

近来在测试的项目中,用到了很多的webtable和checkbox,刚开始的时候,因为时间的关系没有做到检查是否全选了(点击一个全选按钮后),今天有空做了一下,呵呵...花了很多时间去调试并且查资料.

1)先取得webtable的rowcount

2)就可以写代码啦....

 For chk=1 to webNum   '检查是否所有记录都被选中
 Set WebChkObj=Browser("Browser").Page("***").WebTable("**").ChildItem(chk,1,"WebCheckBox",0)                                                             '''WebChkObj.set "ON"  '这里主要是点击checkbox按钮 ,在我的测试代码中是没有用到的,贴出来只是为了让自己知道还可以这么用这个方法
  If webChkObj.object.checked=false Then
    msgbox"第"&chk&"条选项没有被选中"
    End If
 Next

3)现在可以调试啦.