我在发布了新版本后 其他的电脑打开后就自动远程升级 并从远程下载压缩包 最后提示升级成功，请重新启动 点击确定后就出现了
此主题相关图片如下：qq图片20140409105005.jpg

只要关闭了这个页面重新打开系统还是老问题 但不关这个页面 呵呵 就能成功升级 真不知道问题出在哪里

现将AfterOpenProject代码贴出 请各位大侠帮俺想想办法是怎么个问题 该如何解决 谢谢

\'自定义系统名称

Applicaticati
\'注册码
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"*****","*********") = ComputerId Then \'如果注册码正确
    OK = True
    Forms("导航").Open() \'打开导航窗口
    Forms("背景窗口").Open() \'打开背景窗口
Else
    Ok = False
    Messagebox.Show("该系统未审核请联系管理员审核!")
    Syscmd.Project.Exit()
End If
\'自动升级
\'Syscmd.Project.Update(False,False)
\'在线升级
If Syscmd.Project.Update(False,False) = True Then \'如果有升级则打开升级窗口
     Forms("升级").open()
End If

\'设置背景颜色
DataTables("成交录入").SysStyles("EmptyArea").BackColor = Color.LightBlue
DataTables("佣金明细").SysStyles("EmptyArea").BackColor = Color.LightBlue
\'解锁非正常退出时被锁定的记录
DataTables("成交录入").ReplaceFor("编辑者",Nothing,"编辑者 = \'" & User.Name & "\'")
DataTables("成交录入").Save()
Tables("成交录入").Cols.Remove("编辑者") \'移除编辑者列,避免用户直接修改此列
\'佣金明细表分页加载数据
\'With DataTables("佣金明细")
\'    .LoadFilter = "" \'一定要清除加载条件
\'    .LoadTop = 30
\'    .LoadPage = 0
\'    .Load()
\'End With

升级窗口的远程升级控件代码为

Dim Chart As WinForm.Chart
Chart= Forms("升级").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt \'图表类型为甘特图
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM" \'设置Y轴的标示格式
Chart.AxisY.MinDate = #03/01/2014# \'设置Y轴的起始日期
Chart.AxisY.MaxDate = #12/31/2014# \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
    .AddGanttSeries("任务一", #3/5/2014#, #3/28/2014#)
    .AddGanttSeries("任务二", New DateTime() {#3/19/2014#, #3/31/2014#}, New DateTime() {#4/1/2014#, #4/30/2014#})
    .AddGanttLabels("M月d日")
End With

这次升级包的日期为2014/4/9