主题：[求助] 可视化授权的问题

 自定义用户管理？那应该有_UserName 和 _UserGroup 全局变量吧？判断这些

 3楼的意思是，如果用户是普通用户，就不显示授权表......

如果是自己设置的用户管理，是不会触发 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

For Each dl As DataRow In DataTables("授权表").Select("Name = '" & _UserName & "'" )
    If dl.IsNull("列名") Then
        Tables(dl("表名")).Visible = Not dl("不可见")
        Tables(dl("表名")).AllowEdit = Not dl("不可编辑")
    Else
        Tables(dl("表名")).Cols(dl("列名")).Visible = Not dl("不可见")
        Tables(dl("表名")).Cols(dl("列名")).AllowEdit = Not dl("不可编辑")
    End If
Next

加入一句代码，你去看你的授权表是否有对应的用户名。

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

MsgBox("Name = '" & _UserName & "'")

For Each dl As DataRow In DataTables("授权表").Select("Name = '" & _UserName & "'" )
    If dl.IsNull("列名") Then
        Tables(dl("表名")).Visible = Not dl("不可见")
        Tables(dl("表名")).AllowEdit = Not dl("不可编辑")
    Else
        Tables(dl("表名")).Cols(dl("列名")).Visible = Not dl("不可见")
        Tables(dl("表名")).Cols(dl("列名")).AllowEdit = Not dl("不可编辑")
    End If
Next

 不应该有错，对应的表和列肯定是按照代码设置了的。

 实在不行，你做个简单的例子发上来测试。