测试web页面如何点击webtable中的image

flankerzhou

小弟初学QTP用于测试公司的软件。被测软件有一个删除功能，删除按钮是图片。删除按钮与被删除项的名称一起存放在一张table里。页面结构大体如下所示

1. 
   
2. <table width="100%" cellpadding="0" cellspacing="2">           
   
3.            <tr>
   
4.             <td nowrap="nowrap">
   
5.              <img src="/common/images/layout/arrow_black_right.gif" border="0"/>
   
6.              <a class="navitem" href="javascript:funOpenNaviLink('account&listId=12ZHZZRSW0','listmain','1');">QTP-客户名称-包含-姓名</a>
   
7.             </td>
   
8.             <td align="left">
   
9.              <img align="middle" style="cursor: hand" onclick="javascript:funOpenLinkPartReshCfm('userViewShow','list','account','act','delview','forward','delListId=12ZHZZRSW0&reshflag=0');" alt="删除" src="/common/images/icon_clear.gif" />
   
10.             </td>
    
11.            </tr>
    
12.            
    
13.            <tr>
    
14.             <td nowrap="nowrap">
    
15.              <img src="/common/images/layout/arrow_black_right.gif" border="0"/>
    
16.              <a class="navitem" href="javascript:funOpenNaviLink('account&listId=1306MXZH3H','listmain','1');">QTP-客户名称-非空-</a>
    
17.             </td>
    
18.             <td align="left">
    
19.              <img align="middle" style="cursor: hand" onclick="javascript:funOpenLinkPartReshCfm('userViewShow','list','account','act','delview','forward','delListId=1306MXZH3H&reshflag=0');" alt="删除" src="/common/images/icon_clear.gif" />
    
20.             </td>
    
21.            </tr>
    
22.            
    
23.            <tr>
    
24.             <td nowrap="nowrap">
    
25.              <img src="/common/images/layout/arrow_black_right.gif" border="0"/>
    
26.              <a class="navitem" href="javascript:funOpenNaviLink('account&listId=145PTOG3VS','listmain','1');">QTP-客户名称-不包含-test</a>
    
27.             </td>
    
28.             <td align="left">
    
29.              <img align="middle" style="cursor: hand" onclick="javascript:funOpenLinkPartReshCfm('userViewShow','list','account','act','delview','forward','delListId=145PTOG3VS&reshflag=0');" alt="删除" src="/common/images/icon_clear.gif" />
    
30.             </td>
    
31.            </tr></table>

复制代码

现在想删除名称为“QTP-客户名称-非空-”的项目，已查出其在第2行，想点击第2行第2列的删除图片，求教脚本应该怎么写？

我按照论坛里搜索到的通过ChildItem获得指定单元格中的链接对象，并点击的方法去尝试了，结果报“缺少对象”。使用脚本如下

1. 
   
2.   Dim objDelTable, objDelButton
   
3.   Set objDelTable = Browser("TEST").Page("TEST_2").Frame("Frame").WebTable("待删除的项目")
   
4.   Set objDelButton = objDelTable.ChildItem(intRow, intCol, "Link", 0)
   
5.   objDelButton.click

复制代码

后来我以为因为table中存放的是图片，就将第3行修改为

1. 
   
2. Set objDelButton = objDelTable.ChildItem(intRow, intCol, "Image", 0)

复制代码

依然报“缺少对象”的错误。我这里实在是搞不明白了。请各位前辈指点，告知正确的方法。

[ 本帖最后由 flankerzhou 于 2010-3-25 16:37 编辑 ]

flankerzhou

感谢shotstar的帮助。

我intRow和intCol已经正确赋值。
Table对象应该也没问题，因为在查询的时候，用GetCellData可以得到项目的名称。

今天按照你说的重新添加了一次Table，目前问题已经解决了，只是很奇怪昨天为什么会报错。

shotstar

Set objDelButton = objDelTable.ChildItem(intRow, intCol, "Image", 0)

请问是否给intRow和intCol赋值？如果需要点第二行第二列单元格里面的这个图片要写成
Set objDelButton = objDelTable.ChildItem(2, 2, "Image", 0)

如果你已经赋值了还是有这个问题，最大的可能就是Table对象没有正确的获取到。