| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]升级后不自动启动的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41915) |
| -- 作者：ifastudy -- 发布时间：2013/10/30 10:59:00 -- [求助]升级后不自动启动的问题 AfterOpenProject中有如下代码 If Syscmd.Project.Update(False,True)=False Then \'如果没有升级 If User.Type <> UserTypeEnum.Developer TableCaptionVisible = False End If For Each ter As Timer In MyTimers.Values ter.Enabled =False Next Forms("用户登录").Open() If _UserName = "" Then Syscmd.Project.Exit() Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 End If End If 用户确认升级后，确实进行了升级。 问题是：升级后，它要求关闭软件，并提示是否重新启动软件，确认后，并没有自动启动，用户会在这里等很久，以为是软件出问题了，再次人工启动没问题。
|
| -- 作者：Bin -- 发布时间：2013/10/30 11:03:00 -- 很奇怪啊,你下面是否有退出程序的代码? [此贴子已经被作者于2013-10-30 11:03:51编辑过]
|
| -- 作者：ifastudy -- 发布时间：2013/10/30 11:12:00 -- 没有，上面是AfterOpenProject里所有的代码了。 但是BeforeCloseProject中有如下代码： If MessageBox.show("确定要关闭系统吗?","提醒",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.Cancel e.Cancel = True End If [此贴子已经被作者于2013-10-30 11:12:31编辑过]
|
| -- 作者：Bin -- 发布时间：2013/10/30 11:16:00 -- 提示不准确，新版本都不会自动重新启动了，升级后需要人工重启 这个提示日后修复.
|
| -- 作者：blackzhu -- 发布时间：2013/10/30 13:24:00 -- 乌龙 |
| -- 作者：dybsy -- 发布时间：2013/12/11 17:04:00 -- 升级后自动重新启动很实用的啊 为什么要取消啊 能代码实现吗？ |