51Testing软件测试论坛

标题: qtp中循环部分代码未执行就跳过了怎么回事 [打印本页]

作者: kongxi0813 时间: 2013-8-21 23:05
标题: qtp中循环部分代码未执行就跳过了怎么回事
qtp中循环部分代码未执行就跳过了怎么回事，代码中执行到for之后直接跳到最后一行了
下面是代码（测试程序是自带的订票系统，代码主要功能是删除已经订票的信息）
Dim i
Dim j
'登录部分
Dialog("Login").WinEdit("Agent Name:").Set "zhangq"
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure "5214c29da9670b6102ec4ae0509cb28227ffc292"
Dialog("Login").WinEdit("Password:").Type  micReturn
'查询订票信息
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "zhangq"
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

'获取列表中数据的数目
i = Window("Flight Reservation").Dialog("Open Order").Dialog("Search Results").GetROProperty("items count")
'此处想使用msgbox将i的值弹出框显示，如何编写？？？？

'使用循环将已订票信息删除
For j = 0 to (i-1)
Window("Flight Reservation").Dialog("Open Order").Dialog("Search Results").WinList("Flight No.").Select j
Window("Flight Reservation").Dialog("Open Order").Dialog("Search Results").WinButton("OK").Click
Window("Flight Reservation").WinButton("Delete Order").Click
Window("Flight Reservation").Dialog("Flight Reservations").WinButton("是(Y)").Click
'判断是否还存在删除的数据,不存在则退出循环
If j = i -1Then
'Window("Flight Reservation").WinMenu("Menu").Select("File;exit")
Exit for
End If
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "zhangq"
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Next
'退出系统
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

作者: joykao 时间: 2013-8-22 10:22
直接msg i不就可以了？这代码写的。。。。哎。。

作者: feiyunkai 时间: 2013-8-22 15:06
1、可能是i 的值未取到或取到的值为0，导致For j = 0 to (i-1) 中的i-1为负数，所以循环体未执行
2、打印i值：print i 或 msgbox i

作者: 黑羽祭 时间: 2013-8-27 13:03
打印I 或者直接在Debug中单步观察

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)