51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1899|回复: 5
打印 上一主题 下一主题

[原创] 让qtp自动依次选择记录

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-9-5 11:05:26 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
1:功能描述:
有个web页面有多条记录,每次选择一条做提交操作。且已提交的不能再提交;
2:录制的脚本如下:
Browser("hello").Page("pagename").WebCheckBox("check").Set "ON"
3:问题是:如果让qtp来自动做其他记录?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2008-9-5 16:10:19 | 只看该作者
这是页面图。敏感数据我擦掉了。不好意思。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-9-5 15:48:14 | 只看该作者
能把这个web页面的截图发出来吗?我好分析具体元素
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-9-5 15:46:36 | 只看该作者
先给自己一个思路。可惜我的对象库中没有WebTable 这个对象。
Function clickcheckbox(num)' pass the number where you want the
chekbox to be selected.

Dim row

row =Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").GetROProperty("rows")

For i=2 to row 'I am starting the rom from 2 because the first row contrauion the label

          If cstr(Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").GetCellData(i,1)) =cstr(num) Then

              Set WebChkObj=Browser("--Test Page--").Page("--Test Page--").WebTable("Test#").ChildItem(i,2,"WebCheckBox",0)

webChkObj.Set "ON"
          End If

    Next
End Function

clickcheckbox 3
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-9-5 12:49:38 | 只看该作者
能具体说明下不?朢指点。
回复 支持 反对

使用道具 举报

该用户从未签到

2#
发表于 2008-9-5 11:26:05 | 只看该作者
先取出WebCheckBox("check").的id,利用循环依次递增
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-22 18:44 , Processed in 0.071355 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表