以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请帮忙看一下自动静默升级的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175157)
--  作者：fczhaobo
--  发布时间：2022/2/22 14:13:00
--  [求助]请帮忙看一下自动静默升级的代码
下面是我项目的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编辑过]
--  作者：有点蓝
--  发布时间：2022/2/22 14:36:00
--  
从参数说明就可以看出来了，这个提示和错误是没有什么关系的。出错的话，该有的提示还是会有的