主题：请狐爸帮忙看看升级代码问题出在哪里？升级后总是报错，但重新启动后正常

以下内容为程序代码:

1 Syscmd.Project.Update(False,True)
2 For Each dr As DataRow In DataTables("监造统计").DataRows
3 dr("距离交货期的时间") = ( CDate(dr("交货时间")) - Date.Today).TotalDays
4 Next
5 'Tables("监造统计").filter = "监造状态 ＜〉 完成"
6 Dim cnt As Integer = DataTables("监造统计").Select("[监造状态] ＜＞ '已完成' and 距离交货期的时间 ＜= 0").Count
7 If cnt ＞ 0 Then
8 Tables("监造统计").filter = "[监造状态] ＜＞ '已完成' and 距离交货期的时间 ＜= 0"
9 messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
10 End If
11 StatusBar.Message2= "当前用户:" & User.Name & " 今天日期:" & Date.Today
12 Tables("合同跟踪情况.监造统计.合同明细表").Visible = False
13 Tables("需关注物资表.合同跟踪情况").Visible = False
14 Tables("需关注物资表.合同跟踪情况.监造统计").Visible = False
15 Tables("需关注物资表.合同跟踪情况.监造统计.合同明细表").Visible = False
16 Tables("合同明细表.监造统计").Visible = False
17 'Tables("表1").Visible = False
18 Forms("导航1").open()
19 If User.Type ＜＞ UserTypeEnum.Developer '隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)
20 TableCaptionVisible = False
21 End If
22 Tables("合同明细表").Grid.AllowFiltering = True '启动表的内置筛选功能
23 Tables("合同跟踪情况").Grid.AllowFiltering = True
24 Tables("在监的重要物资").Grid.AllowFiltering = True
25 Tables("无法满足现场需求时间的物资明细表").Grid.AllowFiltering = True
26 Tables("监造统计").Grid.AllowFiltering = True
27 Tables("合同明细窗口_Tbl_Main").Grid.AllowFiltering = True
28 Output.Logs("登录日志").Add(User.Name & ":" & Date.Now )
29 Output.Logs("登录日志").Save("\\wzbgyxxgl\物资供应信息管理系统\log.txt",True)
30 Output.Logs("登录日志").Clear
31