设置好在线升级后，一定会在终出现两次升级提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设置好在线升级后，一定会在终出现两次升级提示

共有6884人关注过本帖树形打印复制链接主题：设置好在线升级后，一定会在终出现两次升级提示

9EQ98

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00

设置好在线升级后，一定会在终出现两次升级提示 发帖心情

Post By：2022/10/27 10:24:00 [显示全部帖子]

项目重新发布后，将压缩包放到FTP服务器

在终端启动系统，会提示两次升级，之后正常

第一次升级选择：是，完成后，重新启动系统，将再一次提示是否升级，选择：是，完成后，能正常进入

AfterOpenProject

此事件在项目已经完全打开后执行，此时DataTable、Table和窗口都已经生成。

' 检查在线升级 Top

If Syscmd.Project.Update(False,True) = True Then '如果有升级

'Functions.Execute("PUT_Task_Log","退出","After系统有升级退出") ' 写入(新建)登录日志记录

Syscmd.Project.Exit() '如果有升级,则退出系统

Return ' 一定要加上返回语句

End If

' 检查在线升级 End

请问：代码需要如何优化

9EQ98

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00

Post By：2022/10/29 14:51:00 [显示全部帖子]

如果有升级，需要做升级的记录，需如何写代码？

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

ELSE

' 有升级，可以写代码吗？例如，记录到本地文本文件，什么时候，升级到了什么版本
End If

主题：设置好在线升级后，一定会在终出现两次升级提示