主题：升级时的问题

 

升级成功后Return,不要执行后续代码，这样就不会报错了：

 

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

     Forms("用户登录").Open()

Else

   return

End If

 

For Each t As RibbonMenu.Tab In RibbonTabs

    t.Visible =False

Next

basemainform.controls("c1ribbon1").visible = False

TableCaptionVisible = not TableCaptionVisible

ApplicationMenu.visible= False '用于关闭左上方的大按钮

DataTables("多任务临时表").DataCols.Add("状态", Gettype(String))'在多任务临时表增加临时列 

With Tables("会议纪要表") '关闭列窗口

    .Cols("纪要概述").CloseWindow()

End With

 

DataTables("任务表").ReplaceFor("编辑者",Nothing,"编辑者 = '" & _name & "'")

DataTables("任务表").Save()

Tables("任务表").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列

 

'解锁非正常退出时被锁定的编辑者记录(独占式)

DataTables("多任务临时表").ReplaceFor("编辑者",Nothing,"编辑者 = '" & _name & "'")

DataTables("多任务临时表").Save()

Tables("多任务临时表").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列

'解锁非正常退出时被锁定的编辑者记录(独占式)

DataTables("会议纪要表").ReplaceFor("编辑者",Nothing,"编辑者 = '" & _name & "'")

DataTables("会议纪要表").Save()

Tables("会议纪要表").Cols.Remove("编辑者")  '移除编辑者列,避免用户直接修改此列