村上舞!舞!舞 发表于 2005-11-6 21:06:30

请大家帮忙一下GOTO语句出现的错误;请版主帮帮忙吧

GOTO语句出现的错误了，但不知是错在哪里？请各位帮忙一下吧。
Sub Main
    Dim Result As Integer

    'Initially Recorded: 2005-11-0620: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:55

脚本错误提示信息是什么？

村上舞!舞!舞 发表于 2005-11-7 14:14:27

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

村上舞!舞!舞 发表于 2005-11-7 14:14:51

谢谢pcl版主了，不知为什么，今天新建一个空的GUI，COPY过来原脚本就没有出错了。并且可以执行成功。实在不好意思了……打扰您了。
另外很感谢这个论坛。上面可以学到很多东西。支持…………
页: [1]
查看完整版本: 请大家帮忙一下GOTO语句出现的错误;请版主帮帮忙吧