|
当前action做了参数化,取得当前datatable中的所有行,然后循环
现在想实现:当实际和预期不一致的时候跳出本次循环,而执行下次循环,想找一个相当于c中的continue的函数.不知道怎么实现
n=datatable.GetSheet("确认").getrowcount
For i=1 to n
datatable.SetCurrentRow(i)
Dim a,b,c
a= datatable("预期结果",dtLocalSheet)
c= datatable("用例编号",dtLocalSheet)
executefile "result.vbs"
Window("主机").Maximize
Window("主机").Type DataTable("领现金额", dtLocalSheet)'领取金额
RunAction "授权", oneIteration,i
If Window("主机").Check (CheckPoint("确定后的检查")) then '如实际和预期一致则输出结果,参数化到localsheet中的"预期结果"
b=a
Call printout(a,b,c)
else '实际和预期不一致
Window("主机").Type micF1 '退出
'ExitActionIteration '在此处想退出当前循环而执行下次循环.相当于c中的continue
end if
Window("主机").Type micReturn'不需要qtp执行此句
Next
[ 本帖最后由 zhumingwei 于 2007-8-25 13:52 编辑 ] |
|