《精通QTP-自动化测试技术领航》学习笔记5-webtable

代码：

'前提是进入个人空间-日志管理

with browser("个人空间管理").Page("个人空间管理")
'step1--获取webtable对象的行数和列数
     trow =.WebTable("micclass:=WebTable","html id:=articlelist").rowcount'获取行数
     'msgbox trow
     tcoul=.WebTable("micclass:=WebTable","html id:=articlelist").columncount(1)'获取列数
     'msgbox tcoul
    
 'step2--搜索指定的日志并做相关操作
     For srow = 0 To trow-1
     '遍历每行第二列的值，即日志的标题
      celldata=.WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(srow+1,2)
      '每获得一次值，都与三个指定值比较一次
      For i = 1 To 3
       Select Case i
        Case 1
              title="日志 [2014年08月13日]"
              flag=instr(celldata,title)
              If flag<>0 Then
               set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
               vwebcheckbox.set "on"
               Set vwebcheckbox=nothing
               Exit for
              End If
             
        Case 2
             title="测试一"
             flag=instr(celldata,title)
              If flag<>0 Then
               set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
               vwebcheckbox.set "on"
               Set vwebcheckbox=nothing
               Exit for
              End If
             
        Case 3
             title="测试二"
             flag=instr(celldata,title)
              If flag<>0 Then
               set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
               vwebcheckbox.set "on"
               Set vwebcheckbox=nothing
             
              '获取日志“测试二”的发布时间并放入测试报告中
              ptime=.WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(srow+1,3)
        
              reporter.ReportEvent micPass,"测试二发布于："&ptime&"",""
             
              End If
       End Select
      Next
     Next
    
End with

知识点：

1.获取表格行数：webtable(" ").rowcount

   获取某行的列数：webtable(" ").columncount(row )，需要加参数row即行号

2.获取单元格的值：webtable(" ").getcelldata(row,column)

3.获取单元格的测试对象：set object= webtable(" ").childitem(row,column,"对象类型"，index)