以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  系统升级提示修改内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187201)

--  作者：鱼鱼鱼 --  发布时间：2023/6/30 9:45:00 --  系统升级提示修改内容 我想在系统升级完成后，显示一个提示窗口，提示窗口内容是本次升级所做的修改。

--  作者：有点蓝 --  发布时间：2023/6/30 9:56:00 --   建议把升级的更改放到一个文本文件里，然后就可以 If Syscmd.Project.Update(False,False) = False Then \'如果没有升级     Forms("窗口1").open()     \'后续其它代码 else Dim Proc As New Process Proc.File = projectpath & "更新.text" Proc.Start() End If

--  作者：鱼鱼鱼 --  发布时间：2023/7/5 9:04:00 --   代码写在AfterOpenProject If Syscmd.Project.Update(False,False) = False Then \'如果没有升级     If User.Type <> UserTypeEnum.Developer Then         TableCaptionVisible = False     End If     Forms("主窗体").Open()          Dim cmd As New SQLCommand     \'获取服务器时间     Dim dt As Date     cmd.C     cmd.CommandText = "Select GetDate()"     dt = cmd.ExecuteScalar()     StatusBar.Message1 = "当前用户:" & user.Group & " " & user.Name & "  日期:" & Format(dt,"G")     StatusBar.DefaultMessage = StatusBar.Message1     Forms("账套").Open() Else     Dim Proc As New Process     Proc.File = projectpath & "Reports\\更新.txt"     Proc.Start() End If 系统更新完成后没有打开更新的文件，上面代码那里错了？

--  作者：有点蓝 --  发布时间：2023/7/5 9:11:00 --   发布后的程序有这个路径的文件吗？publish\\project\\Reports\\更新.txt

--  作者：有点蓝 --  发布时间：2023/7/5 9:20:00 --   在项目目录里建一个Reports文件夹把“更新.txt”放入Reports，在发布窗口把Reports文件夹加入附件中