Syscmd.Project.Open(ProjectFile)项目陷入无限重复打开的局面
想实现项目启动完成后,先判断是否需要升级,如果需要升级,升级完成后,自动重启项目
当前代码如下:运行后项目陷入无限重复打开的局面 有没有办法修正呢?
Dim ipFile As String = ProjectPath & "\Attachments\ip.txt"
Dim up As Boolean
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
If TryConnectHost(ip) = True Then
Dim hc As New HttpClient("升级地址/update.txt")
hc.SkipError = True
If hc.GetFile(ProjectPath &"update.txt") Then
up = Syscmd.Project.Update(False,False)
'升级完成后 项目重启
Syscmd.Project.Open(ProjectFile)
End If
End If
End If
If up = False Then '如果没有升级
MainTable=Tables("表a")
TableCaptionVisible = False
Forms("会议系统").open
End If
[此贴子已经被作者于2022/5/12 20:30:17编辑过]