|
trow=Browser("个人空间管理").Page("个人空间管理").WebTable("管理日志").RowCount
tcolumn=Browser("个人空间管理").Page("个人空间管理").WebTable("管理日志").ColumnCount (1)
For i=0 to trow -1
expectvalue=Browser("个人空间管理").Page("个人空间管理").WebTable("管理日志").GetCellData(i+1,2)
For j=1 to 2
Select Case j
Case 1
search1="kk"
return=InStr(1,expectvalue,search1)
If return <> 0 Then
Set ox=Browser("个人空间管理").Page("个人空间管理").WebTable("管理日志").ChildItem(i+1,2,"WebCheckBox",0)
ox.Set "on"
Set ox = Nothing
Exit for
End If
Next
Next
这段代码运行到ox.Set "on"的时候就报error,提示:缺少对象。 一直找不到问题在哪?我是按照书本的语法来写的,但是怎么的跑不了。求助 |
|