QTP webTable 相关2

首先获取WebTable对象，然后通过ChildItem获取指定单元格中的链接对象，并单击该链接：

　　’ 获取WebTable对象

　　Set objTable = Browser("请登录 博都网").Page("我的 文章").WebTable("文章标题")

　　intRow = 2

　　intCol = 1

　　’ 通过ChildItem获取单元格中的链接对象

　　Set objLink = objTable.ChildItem(intRow, intCol, "Link" , 0)

　　’ 单击链接

　　objLink.click

　　_______________________________________________

　　’获取webtable的行数，并查找指定的内容

　　numRows = Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").RowCount

　　For i=2 to numRows

　　title_text =Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").GetCellData(i,1)

　　If trim(title_text) = trim(articleTitle)  Then

　　reporter.ReportEvent 0," 测试成功","文章列表显示新添加的文章标题"

　　Exit For

　　End If

　　Next

　　’如果table有很多页，数据不在第一页，怎么查找？

　　’’’’’’’’’’’Function : 在webTable中查找元素’’’’’’’’’

　　Function FindedItemInTable(pageObj1,WebTable_Obj1,searchStr,PageNum)

　　’ Finded ：标记是否从table里找到数据

　　’ currentPage:当前页；numRows：当前页的行数

　　Dim Finded,currentPage

　　Finded = false

　　’从第一页开始查找。

　　For currentPage = 1 to PageNum

　　’==================初始化：保证从第一页开始搜索==========================

　　’ If currentPage = 1 Then

　　’  pageObj.Link("pageLink").SetTOProperty "text",1

　　’  pageObj.Link("pageLink").SetTOProperty "href","javascript:forward(1)"

　　’  If  pageObj.Link("text:=1","href:=javascript:forward(1)").Exist(1) Then

　　’     pageObj.Link("text:=1").Click

　　’  End If

　　’ End If