条件满足后如何退出for循环？

Dorpnight

场景：参数化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

dim i
i=1
while i<=j

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

rivermen

Exit For

Dorpnight

谢谢，rivermen，有这么简单就好了，呵呵，怎么判定保存成功呢？因为我的这个页面很特殊，是在当前的窗口上打开一个弹出的窗口，在弹出的窗口里做上面的那段参数话，保存成功后弹出的窗口自动关闭。所以用.exist来判定是不可能的。

jackymail

if not Browser("").Page("").exist then
exit
end if

Dorpnight

搞定！！呵呵，thanks