以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于在线升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95065)

--  作者:askbang
--  发布时间:2017/1/9 14:54:00
--  关于在线升级
If Syscmd.Project.Update(False, True) = True Then
    Forms("版本更新说明对话框").Open()
End If

上面的语句在AfterOpenproject中执行时,用户点击“否”拒绝升级的结果如何与没有版本更新的结果加以区分?
我希望的是强制要求更新,并且在只有版本更新的时候才会弹出一个版本更新说明的对话框。
[此贴子已经被作者于2017/1/9 15:00:28编辑过]

--  作者:有点色
--  发布时间:2017/1/9 15:31:00
--  

你应该在第一次打开新程序的时候再弹出提示。

 

Syscmd.Project.Update(False, False)
If GetConfigValue("打开次数", 1) = 0 Then
    Forms("版本更新说明对话框").Open()
    SaveConfigValue("打开次数", 1)
End If

 

--------------你的新程序,在发布前,要设置变量

 

    SaveConfigValue("打开次数", 0)


--  作者:askbang
--  发布时间:2017/1/9 15:42:00
--  
 这个方法我也曾想过,但是总觉得别扭,还有没有更好的办法?
--  作者:有点色
--  发布时间:2017/1/9 15:48:00
--  

 参考这里

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80202&skin=0