Foxtable(狐表) → 用户栏目 → 专家坐堂 → 远程升级


  共有2402人关注过本帖树形打印复制链接

主题：远程升级
美女呀，离线，留言给我吧！
13775189031
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		远程升级  发帖心情 Post By：2020/3/17 15:34:00 [只看该作者]

远程升级后，打开应用程序自动更新后会闪退，然后需要再次启动后才能正常运行！是正常现象么？还是程序包有问题/

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/17 15:39:00 [只看该作者]

正常更新后会提示关闭重新打开项目。闪退肯定不正常，是不是写了什么代码重启项目？

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2020/3/17 16:20:00 [只看该作者]

If Syscmd.Project.Update(False,False) = False Then
是因为我选择了完全静默的原因么？
If Syscmd.Project.Update(Prom1, Prom2) = False Then 
是不是改成这样就可以了？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/17 16:25:00 [只看该作者]

和这个没有关系，完全静默升级成功后也是会弹出“重新启动”的提示的。只是没有弹出下载进度和是否更新的选择

这个事件代码完整发上来看看
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2020/3/17 16:45:00 [只看该作者]


Dim cvs1 As String = Tables("装车清单").GetColVisibleWidth()
    Tables("发货信息.装车清单").SetColVisibleWidth(cvs1)
End If
[此贴子已经被作者于2020/3/17 16:45:45编辑过]
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：805 积分：5564 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2020/3/17 16:48:00 [只看该作者]

上面一段代码加上这句就发不出来 If Syscmd.Project.Update(False,False) = False Then图片点击可在新窗口打开查看

 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询