|
原帖由 auqdppyv 于 2007-8-15 13:25 发表
Function SearchList ( )
Dim i,j,tempText,text,referOperation
listOperation = DataTable("工作列表操作",dtGlobalSheet)
'取要定位的表格行数
rows=Browser("Browser").Page("Page").WebTab ...
只要将WebTable添加进对象库,并起名WorkList,设置innertext和index两个特征属性。
你看这样子用对象库,脚本是不是更清晰更好看!
Function SearchList ( )
Dim i,j,tempText,text,referOperation
listOperation = DataTable("工作列表操作",dtGlobalSheet)
'取要定位的表格行数
Browser("Browser").Page("Page").WebTable("WorkList").SetTOProperty("innertext", innertext_v)
Browser("Browser").Page("Page").WebTable("WorkList").SetTOProperty("index", index)
rows=Browser("Browser").Page("Page").WebTable("WorkList").RowCount
'循环查找
For i=1 to rows
tempText= Browser("Browser").Page("Page").WebTable("WorkList").GetCellData(i,3)
If StrComp(tempText,operation_number) = 0 Then
Browser("Browser").Page("Page").WebTable("WorkList").ChildItem(i,columns,"WebList", 0).Select listOperation
Browser("Browser").Page("Page").Sync
ExitAction
End If
If i=rows Then
Reporter.ReportEvent micFail,"工作列表搜索","搜索的目标工作记录不存在!"
End If
Next
End Function |
|