以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  远程升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147463)

--  作者:13775189031
--  发布时间:2020/3/17 15:34:00
--  远程升级
远程升级后,打开应用程序自动更新后会闪退,然后需要再次启动后才能正常运行!是正常现象么?还是程序包有问题/
--  作者:有点蓝
--  发布时间:2020/3/17 15:39:00
--  
正常更新后会提示关闭重新打开项目。闪退肯定不正常,是不是写了什么代码重启项目?
--  作者:13775189031
--  发布时间:2020/3/17 16:20:00
--  
If Syscmd.Project.Update(False,False) = False Then
是因为我选择了完全静默的原因么?
If Syscmd.Project.Update(Prom1, Prom2) = False Then 
是不是改成这样就可以了?

--  作者:有点蓝
--  发布时间:2020/3/17 16:25:00
--  
和这个没有关系,完全静默升级成功后也是会弹出“重新启动”的提示的。只是没有弹出下载进度和是否更新的选择

这个事件代码完整发上来看看

--  作者:13775189031
--  发布时间:2020/3/17 16:36:00
--  
afteropenproject

If Syscmd.Project.Update(False,False) = False Then
    DataTables("人员信息表").DataCols("身份证号").RaiseDataColChanged()
End If

If Syscmd.Project.Update(False,False) = False Then
    forms("表分类").open    \'后续其它代码
End If

If Syscmd.Project.Update(False,False) = False Then
    Tables("物资采购明细表").Cols("中标情况_中标单位").DropForm = "物资类合格供方清单"
    Tables("外协作合同台账").Cols("外协单位名称").DropForm = "外协类合格供方清单"
End If

--  作者:13775189031
--  发布时间:2020/3/17 16:36:00
--  
If Syscmd.Project.Update(False,False) = False Then
    Tables("MT报告").OpenLoadTree("工艺员|项目名称",150)
    Tables("VT报告").OpenLoadTree("工艺员|项目名称",150)
    Tables("UT报告").OpenLoadTree("工艺员|项目名称",150)
    Tables("PT报告").OpenLoadTree("工艺员|项目名称",150)
    Tables("下料机加工清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("保函信息").OpenLoadTree("年份",150)
    Tables("入库信息").OpenLoadTree("入库时间",150)
    Tables("压力表领用登记表").OpenLoadTree("计量器具名称|领用人",150)
    Tables("原材料入厂检验台账").OpenLoadTree("项目名称|物资名称",150)
    Tables("原材料理重计算表").OpenLoadTree("材料名称|材质",150)
    Tables("发货信息").OpenLoadTree("编号",150)
    Tables("合同评审").OpenLoadTree("年份",150)
    Tables("图纸分发清单").OpenLoadTree("分发人",150)
    Tables("图纸更改通知单").OpenLoadTree("更改人",150)
    Tables("图纸更改建议单").OpenLoadTree("建议人",150)
    Tables("壳体加工清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("外协作合同台账").OpenLoadTree("年度",150)
    Tables("外协作结算清单").OpenLoadTree("项目名称",150)
    Tables("外协工作联系单").OpenLoadTree("年度|合同类别|工艺员",150)
    Tables("安全管理人员资质清单").OpenLoadTree("姓名",150)
    Tables("完工资料台账").OpenLoadTree("负责人",150)
    Tables("工时统计清单").OpenLoadTree("派工单编号",150)
    Tables("排产计划").OpenLoadTree("排产时间",150)
    Tables("检验人员资质清单").OpenLoadTree("姓名",150)
    Tables("水压试验清单").OpenLoadTree("项目名称",150)
    Tables("油漆质量证明书清单").OpenLoadTree("品牌或厂家",150)
    Tables("热处理清单").OpenLoadTree("项目名称",150)
    Tables("焊接明细表").OpenLoadTree("工艺员|项目名称",150)
    Tables("焊材实际领用明细表").OpenLoadTree("物资名称",150)
    Tables("焊材库存台账").OpenLoadTree("项目种类|物资名称|材质|规格",150)
    Tables("焊材库温湿度记录").OpenLoadTree("年月",150)
    Tables("物资采购明细表").OpenLoadTree("编制人|预算编号",150)
    Tables("特种设备操作资质清单").OpenLoadTree("姓名",150)
    Tables("特殊工艺操作资质清单").OpenLoadTree("姓名",150)
    Tables("生产任务派工单").OpenLoadTree("派工单编号",150)
    Tables("组装件详单").OpenLoadTree("工艺员|项目名称",150)
    Tables("耗材实际领用明细表").OpenLoadTree("物资名称",150)
    Tables("耗材库存台账").OpenLoadTree("物资名称",150)
    Tables("表面处理清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("装车清单").OpenLoadTree("项目名称",150)
    Tables("调试清单").OpenLoadTree("项目名称",150)
    Tables("货款回笼信息").OpenLoadTree("年度",150)
    Tables("采购成本统计表").OpenLoadTree("生产令号",150)
    Tables("采购质量计划清单").OpenLoadTree("项目名称",150)
    Tables("采购质量计划见证点清单").OpenLoadTree("项目名称",150)
    Tables("采购质量计划见证通知反馈").OpenLoadTree("项目名称",150)
    Tables("销售信息").OpenLoadTree("年度",150)
    Tables("锻铸件清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("零件探伤清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("零部件清单").OpenLoadTree("工艺员|项目名称",150)
    Tables("项目用无损检验资质清单").OpenLoadTree("项目名称",150)
    Tables("预算清单").OpenLoadTree("年度|编制人|预算编号",150)
    Tables("领料清单").OpenLoadTree("统计日期",150)
    Tables("外购件入厂检验台账").OpenLoadTree("生产令号",150)
End If


--  作者:13775189031
--  发布时间:2020/3/17 16:38:00
--  
If Syscmd.Project.Update(False,False) = False Then
    Select Case user.group
        Case "销售"
            DataTables("合同台账").LoadFilter = "合同承办人或签约人 = \'" & User.Name & "\'"
        Case Else
            DataTables("合同台账").LoadFilter = ""
    End Select
    DataTables("合同台账").Load()
End If

If Syscmd.Project.Update(False,False) = False Then
    Dim flt1 As String
    If User.Group = "销售" Then
        flt1 = "合同承办人或签约人 = \'" & User.Name & "\'"
    End If
    Tables("合同评审").OpenLoadTree("年份|合同承办人或签约人",150,20,True,flt1)
End If

If Syscmd.Project.Update(False,False) = False Then
    Dim flt As String
    If User.Group = "销售" Then
        flt = "签约人 = \'" & User.Name & "\'"
    End If
    Tables("销售信息").OpenLoadTree("年度|签约人",150,20,True,flt)
End If

If Syscmd.Project.Update(False,False) = False Then
    Dim flt2 As String
    If User.Group = "销售" Then
        flt2 = "签约人 = \'" & User.Name & "\'"
    End If
    Tables("货款回笼信息").OpenLoadTree("年度|签约人",150,20,True,flt2)
End If

If Syscmd.Project.Update(False,False) = False Then
    DataTables("人员信息表").DataCols("出生日期").RaiseDataColChanged()
End If


--  作者:13775189031
--  发布时间:2020/3/17 16:39:00
--  
If Syscmd.Project.Update(False,False) = False Then
    If Tables("无损及理化人员资质清单").Visible Then
        Dim dt As Date = Date.Today.AddDays(10)
        Dim dr As DataRow = DataTables("无损及理化人员资质清单").Find("有效日期 <= #" & dt & "#")
        If dr IsNot Nothing Then
            MessageBox.Show("无损证书即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Tables("无损及理化人员资质清单").Filter = "有效日期 <= #" & dt & "#"
            MainTable = Tables("无损及理化人员资质清单")
        End If
    End If
End If


--  作者:13775189031
--  发布时间:2020/3/17 16:45:00
--  

Dim cvs1 As String = Tables("装车清单").GetColVisibleWidth()
    Tables("发货信息.装车清单").SetColVisibleWidth(cvs1)
End If
[此贴子已经被作者于2020/3/17 16:45:45编辑过]

--  作者:13775189031
--  发布时间:2020/3/17 16:48:00
--  
上面一段代码加上这句就发不出来 If Syscmd.Project.Update(False,False) = False Then图片点击可在新窗口打开查看