主题：关于管理员权限

新版旧版，如果代码没有变化，基本都是不会出现你说的问题的。

请加入msgbox，调试看你代码哪里出问题了。

如果自己不会做，具体做个例子发上来测试。

试试改成

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

For Each dr As DataRow In DataTables("权限1").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