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

 把这段代码写到Initialize事件，不写到afterOpenProject里面去

 

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

  如果写在afterOpenProject。

 

下面的代码就要在判断的里面写

 

 

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

    Forms("导航").open()

 

    '其余的代码

 

End If

嗯