如何写升级后提示代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按照帮助文件添加了在线升级功能代码为：Syscmd.Project.Update()

利用此代码可以完成升级，但是升级完成后系统自动退出了。

请问能不能实现升级后给予升级完成提示，或者自动打开系统登录窗口。

请问代码如何设计？谢谢！

谢谢老师，我先试试

出现错误提示，请问老师如何修改？

根据老师昨天提示：复制代码到项目事件AfterOpenProject：

try

    Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
    Dim ud() As String = str.Split("|") '获取文件内容

    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期

    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
        msgbox("有新版本")
        '静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try

点击确定时出现错误提示：编译错误：变量“str”在封闭模块中隐藏变量。错误代码： Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")

try

    Dim str2 As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
    Dim ud() As String = str2.Split("|") '获取文件内容

    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期

    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
        msgbox("有新版本")
        '静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try

谢谢，成功了！我知道的东西太少了，很多东西还需要继续学习，谢谢老师指点。

主题：如何写升级后提示代码