’ 首先获取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