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

1、用户使用已发布的程序可以正常工作

项目有30个外部表，其中有一个可视化授权表，是不是要控制可视化授权表最后一个加载，怎样控制?

loadusersetting事件代码：
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

If User.Name = "王一军" Then
    DataTables("劳动合同").LoadFilter = ""
Else
    DataTables("劳动合同").LoadFilter = "用户 = '" & User.Name & "'"
End If
DataTables("劳动合同").Load()

afteropenproject事件代码：
Syscmd.Project.Update()
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    '原AfterOpenProject事件代码
End If

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

1、按照老师1、2操作后，自动升级没有问题了，但是每个用户都可以看到所有的外部表了；

2、重新复制帮助‘可视化授权的实现’中的代码到项目事件LoadUserSetting中，限制用户只能看自己的表；

3、开发者新增一个表，没有在授权表中做限制，发布后，所有用户可以自动升级成功，并且能看到这个新增的表；

4、问题出在开发者新增一个表，并且在授权表中限制部分用户看到这个表，发布后，除管理员外的所有用户都不能自动升级，提示不存在新增表的table;

5、管理员删除授权表中限制用户看到这个表的所有行，用户就可以自动升级了，但是都能看到这个新增的表了

6、管理员重新在授权表中限制用户看到这个表，用户就看不到了，所以问题还是没有解决。请老师再指导一下。

多谢老师！问题已经解决。如果我的系统新增了一个“表A”，我在LoadUserSetting事件开始位置先加载表A，再卸载表A就可以了。

datatables.load("表A")

if datatables.contains("表A")  then

   datatables.unload("表A")

end if

        这是有点色老师在类似问题的解答:默认的升级，是先连接数据库、加载表之后，才能升级的。建议你改成自己做的升级吧，默认的升级真不好用。

有个客户端的用户给我反映，因为我经常发布系统更新， 他每次都升级，有一次升级后就可以看到所有的表，就不再选择升级了。