’============================================
　　If currentPage >1 Then
　　pageObj.Link("pageLink").SetTOProperty "text"，currentPage
　　pageObj.Link("pageLink").SetTOProperty "href"，"javascript:forward("&currentPage&")"
　　pageObj.Link("text:="&currentPage).Click
　　pageObj.Sync
　　msgbox  pageObj.GetROProperty("url")
　　End If
　　’获得当前页的行数，开始逐行搜索
　　numRows = WebTable_Obj.GetROProperty("rows")
　　msgbox numRows
　　For i=2 to numRows
　　ItemStr =Cstr(WebTable_Obj.GetCellData(i，1))
　　If trim(ItemStr) = trim(searchStr)  Then
　　reporter.ReportEvent 0，"搜索成功"，"元素位于第"&currentPage&"页，第"&i&"行"
　　Finded = true
　　Exit For
　　End If
　　Next
　　’找到了，退出
　　If finded = true Then
　　Exit For
　　End If
　　Next
　　If finded = false Then
　　msgbox "没有找到数据！"
　　End If