主题：自动升级后报错，请指导

StatusBar.Message2= "当前用户:" & User.Name &"              程序开发:***    QQ:1234567 "

If GetConfigValue("试用起始日",#1/1/2010#) = #1/1/2010# Then

    '定义一个试用起始日的变量,让默认日期为早期时间, 若是第一次运行,则将试用日期设为当天

    SaveConfigValue("试用起始日",Date.Today)

End If

Dim usetoday As Date = GetConfigValue("试用日期",Date.today)  '定义一个日期变量,来记录系统本次打开日期

Dim Regok As Boolean = getconfigvalue("注册状态",False)   '定义一个逻辑变量,用来记录注册成功与否

Dim startday As Date = GetConfigValue("试用起始日",#1/1/2010#) '定义一个日期变量,来记录第一次打开系统的日期

If regok = False Then    '若是未注册状态

    If Date.Today < usetoday Then  '若当前日期小于上一次的试用日期,则说明系统时间被修改

        msgbox("系统时间被非法修改,不能进入系统!")  '给消息提示

        syscmd.project.Exit()   '强制退出系统

        Return

    End If

    If Date.Today > startday.AddDays(90) Then   '若今天比第一次打开系统的日期过去3天了

        Forms("注册").open

        Return         '返回,不执行后面的打开窗口1的代码

    End If

End If

SaveConfigValue("试用日期",Date.Today)   '把今天的日期写入到试用日期的参数值里

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

    Forms("导航").open()

End If

If User.Type <> UserTypeEnum.Developer '隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)

    TableCaptionVisible = False

End If

 

DataTables("监造基本信息表").DataCols("监造流水号").RaiseDataColChanged()

DataTables("监造物资明细表").DataCols("监造流水号").RaiseDataColChanged()

 

Tables("监造放行单表.监造物资明细表").Visible = False

Tables("监造日志.监造物资明细表.监造周报").Visible = False

Tables("监造日志.监造物资明细表.图纸工艺文件及进度状态表").Visible = False

Tables("监造日志.监造物资明细表.原材料及外购外协件检验表").Visible = False

Tables("监造物资明细表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造基本信息表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造周报").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造日志").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造放行单表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("人员信息表").Grid.AllowFiltering = True '启动表的内置筛选功能

错误信息如下：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.10.16.1

错误所在事件：项目,AfterOpenProject

详细错误信息：

未将对象引用设置到对象的实例。