QTP 51testing日志列表 webTable应用

'此代码是参照精通QTP-自动化测试技术导航来写的

'获取当前发件箱中的所有表格行，和列
'并指定搜索三篇文章在左边的checkbox打勾
'最后是搜到的文章的发表时间写入测试报告中
Dim search1,search2,search3,cRow,tDate,cellData
search1 = "QTP自动化":search2 = "51tesing测试数据":search3 = "test"
With Browser("个人空间管理").Page("个人空间管理")
	 tRow = .WebTable("html id:=articlelist").RowCount
	 tColumn =.WebTable("html id:=articlelist").ColumnCount(1)
	 'step2------------------------------------------------------->
For cRow = 1 To tRow - 1 '因为第一行是标题栏，所以总数减去1
     '从第二行开始循环，第二列是固定的
	cellData = .WebTable("html id:=articlelist").GetCellData(cRow +1,2)
	tDate = .WebTable("html id:=articlelist").GetCellData(cRow +1,3)
	print cellData
	If instr(1,cellData,search1) <> 0 Or instr(1,cellData,search2) <> 0 Or instr(1,cellData,search3) <> 0 Then
		.WebTable("html id:=articlelist").ChildItem(cRow +1,1,"WebCheckBox",0).set "ON"
		 Reporter.ReportEvent micPass, cellData & "发表于" & tDate,""
	End If
Next

End With
print tRow
print tColumn