以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手动升级与自动升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130952)

--  作者:douglas738888
--  发布时间:2019/2/12 17:51:00
--  手动升级与自动升级

请教老师,

1. 按钮点击升级,\'Syscmd.Project.Update(),怎样写代码,检测到新版本升级完成后,能自动重启项目,不用手动再次打开项目

 

2. 自动升级,下面代码怎样调整,启动项目后就提示升级,而不是等到输入登录名和登录密码后才提示升级(自定义的登录窗口)

    If Syscmd.Project.Update(False,False) = True Then \'如果已升级
    Application.ReStart \'重新启动项目
Else
    If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
        Forms("主窗口").Open()
        If User.Type <> UserTypeEnum.Developer
            TableCaptionVisible = False
        End If
    End If
End If


--  作者:有点甜
--  发布时间:2019/2/12 17:57:00
--  

1、

 

Syscmd.Project.Update()
application.restart

 

2、自带的升级,必须打开项目后才能升级的,没办法。

 

 


--  作者:douglas738888
--  发布时间:2019/2/12 18:44:00
--  

老师,第一个问题,我已经这样写代码了,如果检测后是最新版本,也自动关闭项目又重启了,

 

应该实现的是检测到,已经是最新版本就不关闭项目,如果检测到最新版本就升级,升级完成后重启。


--  作者:有点蓝
--  发布时间:2019/2/12 19:56:00
--  
if Syscmd.Project.Update() then
    application.restart
end if

--  作者:douglas738888
--  发布时间:2019/2/12 21:59:00
--  

老师,您指导的代码依然未解决原来的问题,点击按钮,提示窗显示已经是最新版本,点击确定后,依然自动关闭系统又重新启动了,

 

这时点击确认,应该不关闭系统再重新启动,自然关闭提示就行了,因为此时并无执行任何升级动作。


--  作者:有点蓝
--  发布时间:2019/2/12 22:17:00
--  
贴出您完整代码

If Syscmd.Project.Update(True,True) Then
    application.restart
End If