标题: QTP [打印本页] 作者: niernier 时间: 2016-4-13 21:37 标题: QTP 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