|
4#
楼主 |
发表于 2008-9-5 15:46:36
|
只看该作者
先给自己一个思路。可惜我的对象库中没有WebTable 这个对象。
Function clickcheckbox(num)' pass the number where you want the
chekbox to be selected.
Dim row
row =Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").GetROProperty("rows")
For i=2 to row 'I am starting the rom from 2 because the first row contrauion the label
If cstr(Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").GetCellData(i,1)) =cstr(num) Then
Set WebChkObj=Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").ChildItem(i,2,"WebCheckBox",0)
webChkObj.Set "ON"
End If
Next
End Function
clickcheckbox 3 |
|