Foxtable(狐表)用户栏目专家坐堂 → 如何自己检测是否有升级版本


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

主题:如何自己检测是否有升级版本

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:11133 威望:0 精华:0 注册:2014/8/13 16:19:00
如何自己检测是否有升级版本  发帖心情 Post By:2015/9/1 9:03:00 [只看该作者]

如题?远程升级,如何检测有升级版本,提示升级呢?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 9:05:00 [只看该作者]

加如下面的代码

 

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。


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


加好友 发短信
等级:六尾狐 帖子:1495 积分:11133 威望:0 精华:0 注册:2014/8/13 16:19:00
  发帖心情 Post By:2015/9/1 9:21:00 [只看该作者]

我用了If Syscmd.Project.Update(False,true) = true Then return
怎么启动时,一直提示发现新版本?已经升级了也不行?

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:11133 威望:0 精华:0 注册:2014/8/13 16:19:00
  发帖心情 Post By:2015/9/1 10:03:00 [只看该作者]

呼叫袍哥!

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


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
  发帖心情 Post By:2015/9/1 10:08:00 [只看该作者]

If Syscmd.Project.Update(False,True) = False Then
   Forms("登录窗口").open() 
End If




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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 10:13:00 [只看该作者]

汗,你要用发布后的程序测试才行。

 

If Syscmd.Project.Update(False,True) = False Then

    '你其余的代码

End If


 回到顶部