在项目AfterOpenProject事件中的一段代码，不加黄色标记的代码时，升级时老是跳出“在线升级包下载完毕，请重新启动以完成余下升级过程！”的对话框，不能完成在线升级；而加了黄色标记的代码后，只是连续两次跳出对话框后，再次启动项目时可以打开项目。问题出在哪里？请各位老师指教，谢谢。
If FileSys.FileExists("\\hhjy-pc\gx\update.txt") Then '判断共享文件夹是否连接
Syscmd.Project.Update(False,False) '静默升级
If syscmd.project.update(False,False) = False Then '如果没有升级
Forms("用户登录").open()
'未输入用户名退出
If _UserName = "" Then
Syscmd.Project.Exit()
Return
End If
'其他代码
End If
Else
Messagebox.Show("未连接内网共享文件夹","提示")
Syscmd.Project.Exit() '退出系统
End If
此主题相关图片如下：捕获.jpg
[此贴子已经被作者于2014-8-13 12:46:04编辑过]
加好友 
发短信
Post By：2014/8/12 20:47:00 [只看该作者]
