51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1660|回复: 3
打印 上一主题 下一主题

[原创] 请一下脚本如何停止循环

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-3-22 15:25:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
此脚本为QTP自带飞机订票系统,脚本执行没问题,但是执行完毕后已经关闭页面,脚本会循环到首行继续执行,请问应该如何停止循环


Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure "4d88307fdaf46352606c09e590aa7f4083f34e2f"
Dialog("Login").WinEdit("Password:").Type  micReturn
Window("Flight Reservation").ActiveX("MaskEdBox").Type "121212"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "20262   DEN   10:12 AM   LON   05:23 PM   AA     $112.20"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "Test_aaa"

Dim i ,b
For i=1 to 3
    Select Case i
     Case  1  b=datatable.GetSheet("Global").GetParameter("A").ValueByRow(1)
                 '"Business"
                        Case  2   b=datatable.GetSheet("Global").GetParameter("A").ValueByRow(2)
                                '"First"
                                 Case  3  b=datatable.GetSheet("Global").GetParameter("A").ValueByRow(3)
                                        ' "Economy"
     End select
    Window("Flight Reservation").WinRadioButton("text:="&b).SetTOProperty "text",b
        Window("Flight Reservation").WinRadioButton("text:="&b).Set
        Exit for
Next  

Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2011-3-22 15:40:06 | 只看该作者
Test->Settings->Run->Run one iteration only
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2011-3-22 16:07:10 | 只看该作者
这样设置循环只能循环一次,就不能通过SetTOProperty参数化了,是不是调用Global中的数据就会再次循环datatable啊
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2011-3-23 14:58:49 | 只看该作者
配合Exit For、Exit Action这些语句来做
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 11:03 , Processed in 0.069953 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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