Foxtable(狐表)用户栏目专家坐堂 → 远程升级


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

主题:远程升级

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


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
远程升级  发帖心情 Post By:2016/10/12 8:36:00 [只看该作者]

请问老师:
     在进行远程升级的时候,出现了以下提示:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161012082017.png
图片点击可在新窗口打开查看


请问版本再次升级的时候,如何实现静默升级,不出现以上的提示?谢谢老师。

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


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/12 8:39:00 [只看该作者]

看完:http://www.foxtable.com/webhelp/scr/2934.htm

Update的语法:

Syscmd.Project.Update(Prom1, Prom2)

Prom1: 可选参数,逻辑型,没有发现新版本时,是否提示用户。
Prom2: 可选参数,逻辑型,发现新版本时,是否提示用户升级。

例如希望自动升级能够完全"静默",发现新版本时不提示,自动开始升级,没有发现新版本时也不提示:

Syscmd.Project.Update(False,False)

如果我们在AfterOpenProject下面的代码:

Syscmd.Project.Update(False,False) 
Forms("窗口1").Open() '可能会出错
'后续其它代码

目的是希望打开项目的时候自动升级,然后打开窗口1。
但是上述代码肯定会在升级成功之后提示错误,因为一旦升级成功,Foxtable就会关闭,后面的打开窗口代码就会出错,当然后续其它的代码也一样会出错。
我们可以用下面的代码避免错误:

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    
Forms("窗口1").open()
    '后续其它代码
End
 If

也就是说Update执行后会返回一个逻辑值,如果升级成功,返回True,否则返回False。

总之,如果需要在AfterOpenPoject事件中实现自动升级,那么原有的AfterOpenProject事件代码必须包括在这个判断中,只有没有升级的情况下,才执行原来的代码:

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    '原AfterOpenProject事件代码
End
 If


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


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2016/10/12 9:23:00 [只看该作者]

好的,谢谢已通过。

 回到顶部