以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  升级到20220524版 项目静默升级后Application.ReStart 重启 提示窗口指定的所有者表不存在,无法打开此窗口……  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177583)

--  作者:cnsjroom
--  发布时间:2022/5/27 11:55:00
--  升级到20220524版 项目静默升级后Application.ReStart 重启 提示窗口指定的所有者表不存在,无法打开此窗口……

升级到20220524版 项目静默升级后Application.ReStart 重启  提示窗口指定的所有者表不存在,无法打开此窗口……

 

 

Dim File As String = ProjectPath & "\\Attachments\\Connect.Ini"
Dim ErrMsg As String
Dim Conn As String = FileSys.ReadAllText(File)
If Connections.TryConnect(Conn,ErrMsg) = False Then
    MessageBox.Show("数据源无法连通" & vbcrlf & "原因:" & ErrMsg    & vbcrlf & "点击确定,退出当前系统,请重新启动程序!"  ,"温馨提示")
   
    vars("数据源状态")=False
    Syscmd.Project.Exit()
    \'Syscmd.Project.Open(ProjectFile)
Else
    If Connections.Contains("无纸化会议")=True  Then
    Else
        Connections.Add("无纸化会议",Conn)
    End If
    vars("数据源状态")=True
……

    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(UpdatePath & "/update.txt")
            hc.SkipError = True
            If hc.GetFile(ProjectPath &"update.txt") Then
                up = Syscmd.Project.Update(False,False)
            End If
        End If
    End If
    If up = False Then \'如果没有升级
        MainTable = Tables("表A")
        TableCaptionVisible = False
        basemainform.text = "【无纸化会议】"
        AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件
        Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("返回主界面",GetImage(projectpath & "\\BrowseMode.ico"))  \'定义一个菜单选项(带图标)
        AddHandler tsmi1 .Click, AddressOf Menu1_Click  \'为这个菜单选项添加点击事件
        Dim tsmi3 As New System.Windows.Forms.ToolStripMenuItem("退出程序") \'定义一个菜单选项
        AddHandler tsmi3 .Click, AddressOf Menu3_Click  \'为这个菜单选项添加点击事件
        cms.Items.Add(tsmi1) \'为全局变量CMS 也就是右键菜单添加 "菜单一"
        cms.Items.Add(tsmi3) \'为全局变量CMS 也就是右键菜单添加 "菜单三"
        nfi.ContextMenuStrip = cms
        nfi.Text = "无纸化会议服务端" \'鼠标移上去显示的文本
        nfi.Icon = new Icon(ProjectPath & "Attachments\\001.ico") \'图标地址
        nfi.Visible = True \'设置为显示
        Forms("会议系统").open
        basemainform.WindowState = 1
        baseMainform.visible = False \'显示主项目\'
        If FileSys.DirectoryExists(ProjectPath & "下载文件") Then
        Else
            FileSys.CreateDirectory(ProjectPath & "下载文件")
        End If
        If FileSys.DirectoryExists(ProjectPath & "上传文件")  Then
        Else
            FileSys.CreateDirectory(ProjectPath & "上传文件")
        End If
       
    Else  \'如果升级成功
       
        Application.ReStart \'小版本升级完成后自动重启项目\'
    End If
   
   
End If


--  作者:有点蓝
--  发布时间:2022/5/27 11:59:00
--  
大版本升级绝对不能使用Application.ReStart 重启
--  作者:cnsjroom
--  发布时间:2022/5/27 12:25:00
--  回复:(有点蓝)大版本升级绝对不能使用Application....

大版本升级该怎么理解呢?

 

update文件内容中|后面的都是2022-5-24

 

2022-05-27 11:48|2022-5-24

 

经注释掉Application.ReStart 启动还是出现一楼的错误提示

 

窗体所有者表为表A 是狐表内部数据表  经查在系统启动后,这个表也是存在的……

 

 

一楼的代码写法在之前的0130版本都是正常的!!!!

[此贴子已经被作者于2022/5/27 13:29:59编辑过]

--  作者:有点蓝
--  发布时间:2022/5/27 13:36:00
--  
Foxtable有更新的就是属于大版本。比如Foxtable从20220524升级到20220527版,20220524版发布的程序更新到20220527版发布的程序就是属于大版本更新。Foxtable没有更新的属于小版本更新。

出错后重新发布测试,不要使用之前更新有问题的版本测试

--  作者:cnsjroom
--  发布时间:2022/5/27 14:15:00
--  回复:(有点蓝)Foxtable有更新的就是属于大版本。比...
现在直接项目点发布项目  还没有完成就项目自动退出了  删除bin文件夹 重新打开也没有用……
--  作者:有点蓝
--  发布时间:2022/5/27 14:31:00
--  
publish也删除掉在发布
--  作者:cnsjroom
--  发布时间:2022/5/27 19:33:00
--  回复:(有点蓝)publish也删除掉在发布

删除bin 删除publish  是可以发布项目了  但是发布一次之后  如果需要再次发布   还是需要重复前面的两个删除操作才能再次发布

 

发布之后依然是提示一楼错误

 

Application.ReStart 与这个没有关系

 

将以前的旧版本备份文件恢复,然后项目重新做了一遍,0130版本就没有问题  升级到0524 0527就出现一楼错误和发布项目闪退的问题

 

希望不是新版的bug


--  作者:狐狸爸爸
--  发布时间:2022/5/29 11:32:00
--  
这是新版bug,等下次更新
--  作者:狐狸爸爸
--  发布时间:2022/5/29 15:11:00
--  
这个bug已经在2022.05.29版本修复,需要注意的是:

如果你的客户端之前已经升级到新版本,那么本次升级之后,客户端第一次升级还会有这个提示(因为客户端此时运行的还是有问题的版本),之后就正常了