QTP 学习笔记--编写翻页脚本

mexia

偶最近在学习qtp，花了1天半的时间终于将翻页脚本写好，具体脚本在下面：

//录制程序自动生成脚本

Browser("申请业务").Page("登录系统").WebEdit("userName").Set "admin"
Browser("申请业务").Page("登录系统").WebEdit("userPwd").SetSecure "4795a6b7996194ad"
Browser("申请业务").Page("登录系统").Image("btn_dl").Click
Browser("申请业务").Page("商旅信息管理").WebButton("商旅业务").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat").Link("下一页").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat_3").Link("111111111111").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat_4").WebButton("返回客户列表").Click

//取出页面中的对象，通过qtp中的object spy 工具来找出所取对象的属性，定义对象ODESC,
Set ōDesc = descrīption.Create()
oDesc("html id").Value = "ctl00_ContentPlaceHolder1_gtvCustomer"                oDesc("html tag").Value = "table"
Set Lists = Browser("申请业务").Page("商旅信息管理").ChildObjects(oDesc)
Set myobj = Lists.item(0)
dim state
state = 0
For i = 1 to myobj.rowcount-1
dim  j
    j = trim( myobj.getcelldata(i,2))
If  j = "周测试6" Then
      state =1
End If
Next
If  state = 0  Then
Browser("申请业务").Page("商旅信息管理").Frame("workplat").Link("下一页").Click
End If
此脚本能实现根据参数判断来翻页的功能，但是还要改写一下，偶现在也比较懒，有问题就提吧

[ 本帖最后由 mexia 于 2008-1-23 14:46 编辑 ]

mexia

看帖留言好习惯，希望大家觉得好能顶一下

今天有雾

如果只是翻页的话
while Browser(xxxx).page(xxxxxx).link("下一页").exist
          Browser(xxxx).page(xxxxxx).link("下一页").click
Wend
这样写不行吗?

mexia

今天有雾说的好，只是翻页可以那样写，但是翻页时要查找此页面中的webtable记录是否含有你想查找的内容，如果有就不翻页，没有才翻页。