51Testing软件测试论坛

标题: 请大家帮忙一下GOTO语句出现的错误;请版主帮帮忙吧 [打印本页]

作者: 村上舞!舞!舞 时间: 2005-11-6 21:06
标题: 请大家帮忙一下GOTO语句出现的错误;请版主帮帮忙吧
GOTO语句出现的错误了，但不知是错在哪里？请各位帮忙一下吧。
Sub Main
Dim Result As Integer

'Initially Recorded: 2005-11-06 20:35:07
'Script Name: liuchao2

Window SetContext, "Caption={人事信息管理*}", ""

Window SetContext, "Caption=在职人员信息;ChildWindow", ""
PushButton Click, "Text=调整"
Result = WindowVP (Exists, "Caption=调整人员编号", "VP=Window Image;wait=5,5")
if result<>1 then
SQAConsolewrite "调整人员编号对话框启动失败"
Goto i
else
SQAConsolewrite "调整人员编号对话框启动成功"
Window SetContext, "Caption=调整人员编号", ""
PushButton Click, "Text=退出"
end if

i: Window SetContext, "Caption={人事信息管理*}", ""

Window SetContext, "Caption=在职人员信息;ChildWindow", ""
GenericObject Click, "Class=TScrollBox;ClassIndex=1", "Coords=67,390"

Window SetContext, "Caption={*任职情况}", ""
PushButton Click, "Text=退出"

End Sub

[ Last edited by 村上舞!舞!舞 on 2005-11-7 at 12:46 ]

作者: pcl2004_27 时间: 2005-11-7 13:06
脚本错误提示信息是什么？

作者: 村上舞!舞!舞 时间: 2005-11-7 14:14
谢谢pcl版主了，不知为什么，今天新建一个空的GUI，COPY过来原脚本就没有出错了。并且可以执行成功。实在不好意思了……打扰您了。
另外很感谢这个论坛。上面可以学到很多东西。支持…………

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