主题：[原创]客户端自动升级，不存在新增的表

 肯定是你的【项目事件】有问题。逻辑上肯定有问题。你可以尝试把代码都删除再测试。

1、你尝试把LoadUserSetting事件的代码删除；

2、AfterOpenProject这样写

If Syscmd.Project.Update(True, True) = False Then '如果没有升级
    Select Case User.Name
        Case "胡冰","叶敏辉"
            Tables("劳动合同").Cols.Remove("合同编号")
            Tables("劳动合同").Cols.Remove("合同确认")
            Tables("劳动合同").Cols.Remove("a1")
            Tables("劳动合同").Cols.Remove("d6")
    End Select
    If User.Name <> "王一军" Then
        Tables("劳动合同").Cols.Remove("用户")
    End If
End If

LoadUserSetting事件，如果删除，和不报错是么？

你LoadUserSetting执行时，判断一下表名

If Tables.Contains(dr("表名")) Then

    '原本的权限设置代码

End If