- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 远程升级 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147463)
-- 发布时间：2020/3/17 15:34:00
-- 远程升级
远程升级后，打开应用程序自动更新后会闪退，然后需要再次启动后才能正常运行！是正常现象么？还是程序包有问题/
-- 发布时间：2020/3/17 15:39:00
--
正常更新后会提示关闭重新打开项目。闪退肯定不正常，是不是写了什么代码重启项目？
-- 发布时间：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
--
和这个没有关系，完全静默升级成功后也是会弹出“重新启动”的提示的。只是没有弹出下载进度和是否更新的选择
这个事件代码完整发上来看看
-- 发布时间：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
-- 发布时间：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
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2020/3/17 16:45:00
--
Dim cvs1 As String = Tables("装车清单").GetColVisibleWidth()
Tables("发货信息.装车清单").SetColVisibleWidth(cvs1)
End If
[此贴子已经被作者于2020/3/17 16:45:45编辑过]
-- 发布时间：2020/3/17 16:48:00
--
上面一段代码加上这句就发不出来 If Syscmd.Project.Update(False,False) = False Then
