AfterOpenProject中有如下代码
If Syscmd.Project.Update(False,True)=False Then '如果没有升级
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
For Each ter As Timer In MyTimers.Values
ter.Enabled =False
Next
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
End If
用户确认升级后,确实进行了升级。
问题是:升级后,它要求关闭软件,并提示是否重新启动软件,确认后,并没有自动启动,用户会在这里等很久,以为是软件出问题了,再次人工启动没问题。