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

请教下我将数据库从内部数据库转换到外部SQLserver数据库后原来的权限用不了了，都会全部加载出来，请问下这个要怎么改

除了提示加载的表名外还有一个[入库]已加载的提示，最后全部表都会显示，第一个窗口显示的是1

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楼代码不变，重新打开项目。

 

 

谢谢，没有注意到犯了这种错误，还有个问题请教下，我从内部数据表导出ACC数据库，定义外部数据表SQL完成后ACC导入数据为什么有的表的数据增加了差不多一倍，每个都多增加了一个，但有的数据表又没有多增加，而且数据多增加的表有少部分也没有多增加

1、把数据都删除；

 

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

 

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

再请教下，原来内部数据源的时候在授权表里没有对应的用户名和表名称是不会加载的，为什么现在启用外部数据源的时候加载 了呢，这个需要怎么修改？

 提示表不存在，说明你授权表的数据有问题，你表名或列名写错了。