主题：[求助]数据库转换后权限的设置

Dim tns As String = DataTables("授权表").SQLGetComboListString("表名","用户名 = '" & User.Name & "' and 加载表 = 1")
If tns > "" Then
    If DataTables.Contains(tns) = False Then DataTables.Load(tns)
    For Each dr As DataRow In DataTables("授权表").SQLSelect("用户名 = '" & User.Name & "' and 加载表 = 1" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Dim t As Table = Tables(dr("表名"))
            t.Cols(dr("列名")).Visible = Not dr("不可见")
            t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

 1、把你beforeLoadInnerTable的代码拷贝到BeforeLoadOuterTable

 2、4楼代码不变，重新打开项目。

1、把数据都删除；

2、按住ctrl不放打开项目，重新合并数据。

3、数据是不可能无缘无故变多的。