下面是我项目的AfterOpenProject事件，
原先用Syscmd.Project.Update(False,True) = False，没有问题，我现在改成了Syscmd.Project.Update(False,False) = False，这种静默升级是否会出错，心里没有底，因为一旦出问题，后果很严重的。
'启动自动升级
If Syscmd.Project.Update(False,False) = False Then '如果没有升级 参数1没有发现新版本时,是否提示用户. 参数2 发现新版本时,是否提示用户升级.
Forms("用户登录").Open()
If _UserName = "" Then
'Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
MainTable = Tables("main")
End If
'非开发者表标题不可见
If _UserName = "admin" Then
TableCaptionVisible =True
Else
TableCaptionVisible = False
End If
basemainform.text = "ERP管理系统!--------版本号 V" & Format(PublishDate,"yyMMdd")
[此贴子已经被作者于2022/2/22 14:15:46编辑过]
加好友 
发短信
Post By：2022/2/22 14:13:00 [显示全部帖子]
