51Testing软件测试论坛

标题: 江湖救急 [打印本页]

作者: caoqd 时间: 2007-8-3 16:31
标题: 江湖救急
Sub Main
Dim Result As Integer
'Initially Recorded: 2007-8-3 16:10:27
'Script Name: testerror

Window SetContext, "Type=Form;Name=FrmMain", ""

on error goto label1
Window SetContext, "Type=Form;Name=FrmOrgn", ""
'第一次选择地区
TreeView MakeSelection, "Type=TreeView;Name=tvOrgn", "Text=中国->华盛顿"
Toolbar Click, "Type=Toolbar;Index=0", "Coords=26,12"

Window SetContext, "Type=Form;Name=FrmEditOrgn", ""
PushButton Click, "Type=Panel;Name=pnl99;\;Type=PushButton;Name=btnClose"
label1:

Window SetContext, "Type=Form;Name=FrmOrgn", ""
'第二次选择地区
TreeView MakeSelection, "Type=TreeView;Name=tvOrgn", "Text=中国->北京"
Toolbar Click, "Type=Toolbar;Index=0", "Coords=26,12"

Window SetContext, "Type=Form;Name=FrmEditOrgn", ""
PushButton Click, "Type=Panel;Name=pnl99;\;Type=PushButton;Name=btnClose"

End Sub

---------------------------------------------------------------------------------------------------------------------------------
我第一次选择的地区是不存在的，第二次是对的。
我希望的执行结果是，第一次执行错误，但是使用on error goto label1语句在得到错误后执行后边的语句，
就是执行第二次选择地区，然后，程序结束。
现在我执行的时候都是执行到第一次选择地区就失败然后结束了，
请告诉我on error goto label1语句该怎样使用能达到我希望的结果呢？？？

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