目的，进入51个人空间管理中，搜索内容，如果有搜索到对应的内容，则在选挚的勾选框
代码如下:
with Browser("个人空间管理").Page("个人空间管理")
rowcount=.WebTable("标题").RowCount
msgbox rowcount
columncout=.WebTable("标题").ColumnCount(1)
msgbox columncout
end with
For row=0 to rowcount-1
celldata=Browser("个人空间管理").Page("个人空间管理").WebTable("标题").GetCellData(row+1,2)
For i=1 to 2
Select Case i
Case 1
searchchar1="excel导入错误"
return=instr(1,celldata,searchar1)
If return<>0 Then
set oWebCheckBox =Browser("个人空间管理").Page("个人空间管理").WebTable("标题").ChildItem(row+1, 1, "WebCheckBox", 0)
oWebCheckBox.set "on"
Set oWebCheckBox=nothing
Exit for
End If
Case 2
searchchar2="qtp参数化报错"
return=instr(1,celldata,searchar2)
If return<>0 Then
set oWebCheckBox= Browser("个人空间管理").Page("个人空间管理").WebTable("标题").ChildItem(row+1,1,"WebCheckBox",0)
oWebCheckBox.set "on"
Set oWebCheckBox=nothing
Exit for
end if
End Select
next
Next
