(转)QTP中Link的解决办法
上一篇 /
下一篇 2008-12-20 10:31:03
/ 个人分类:QTP
Dim aa,bb,cc,dd
aa=Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").RowCount'先获得表格的行数
bb="200802-7501-024"'设置的变量
For i=1 to aa
cc= Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").GetCellData(i,5)'得到表格中单元格的值
msgbox cc
If (bb=cc) Then'进行比较
msgbox bb
dd=i'获得变量所在的行
Exit for
End If
Next
msgbox dd
Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").ChildItem(dd,8,"Link" , 0).Click'根据变量所在的行去点击相应单元格中的链接。
'如果当前也没有,先在最外层增加多少页的循环,然后在内层的循环中,可以增加else,进行翻页。
收藏
举报
TAG: