Foxtable(狐表)用户栏目专家坐堂 → [求助]请帮忙看一下自动静默升级的代码


  共有3841人关注过本帖树形打印复制链接

主题:[求助]请帮忙看一下自动静默升级的代码

帅哥哟,离线,有人找我吗?
fczhaobo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:395 积分:4070 威望:0 精华:0 注册:2017/3/24 15:10:00
[求助]请帮忙看一下自动静默升级的代码  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109489 积分:557107 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/22 14:36:00 [只看该作者]

从参数说明就可以看出来了,这个提示和错误是没有什么关系的。出错的话,该有的提示还是会有的

 回到顶部