代码写在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
系统更新完成后没有打开更新的文件，上面代码那里错了？
加好友 
发短信
Post By：2023/6/30 9:45:00 [显示全部帖子]
