QTP中Link的解决办法

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，进行翻页。