51Testing软件测试论坛

标题: 条件满足后如何退出for循环？ [打印本页]

作者: Dorpnight 时间: 2007-8-29 14:13
标题: 条件满足后如何退出for循环？
场景：参数化name,导入excel表读取依次表里的数据，当不重名的时候保存成功，可是保存成功后，还在循环，怎么退出啊？因为保存成功后当前的页面就关闭了自动跳转回另一个页面。还是我这段脚本有问题？不应该这么写？

Dim FilePath
FilePath=("E:\QTP_script\HotelType.xls")
'DataTable.Importsheet Filepath,1,"EditProfile"
DataTable.Importsheet Filepath,1,Global
DataTable.LocalSheet.AddParameter "Testlog",""
Dim j
j=datatable.LocalSheet.getrowcount
For i=1 to j
Browser("").Page("").WebEdit("").Set DataTable ("",dtGlobalSheet)
Browser("").Page("").WebEdit("").Set "jkilk"
Browser("").Page("").WebList("").Select "Single"
Browser("").Page("").WebEdit("").Set "16"
Browser("").Page("").WebRadioGroup("").Select "true"
Browser("").Page("").Link("Save").Click
DataTable.GetSheet("Global").SetNextRow
Next

作者: rivermen 时间: 2007-8-29 14:22
dim i
i=1
while i<=j

if 保存成功 then i=j+1
else
i=i+1
end if
wend

作者: rivermen 时间: 2007-8-29 14:25
Exit For

作者: Dorpnight 时间: 2007-8-29 14:30
标题: 回复 #2 rivermen 的帖子
谢谢，rivermen，有这么简单就好了，呵呵，怎么判定保存成功呢？因为我的这个页面很特殊，是在当前的窗口上打开一个弹出的窗口，在弹出的窗口里做上面的那段参数话，保存成功后弹出的窗口自动关闭。所以用.exist来判定是不可能的。

作者: jackymail 时间: 2007-8-29 14:34
if not Browser("").Page("").exist then
exit
end if

作者: Dorpnight 时间: 2007-8-29 14:49
标题: 回复 #5 jackymail 的帖子
搞定！！呵呵，thanks

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