主题：升级时的问题

下面是afteropenprojiect 中的代码，红色部分“纪要概述”过去叫做“纪要内容”  ，提示的错误信息就是：会议纪要表中不存在“会议内容“列，但是在正式版数据库中是有的。

 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("编辑者")  '移除编辑者列,避免用户直接修改此列

 

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

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

End If