主题：求助：非开发者或非管理员登录问题

1、项目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("yh1").Visible = (User.Type <> UserTypeEnum.User )'非开发者或管理员不可见此表

If User.Type = UserTypeEnum.User Then

    For Each dr As DataRow In DataTables("yh1").Select("用户名 = '" & User.Name & "'" )

        If dr.IsNull("列名") Then

            Tables(dr("授权项目")).Visible = Not dr("不可见")

            Tables(dr("授权项目")).AllowEdit = Not dr("不可编辑")

            DataTables(dr("授权项目")).AllowClipBoard = Not dr("不可复制")

        Else

            Tables(dr("授权项目")).Cols(dr("列名")).Visible = Not dr("不可见")

            Tables(dr("授权项目")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")

            DataTables(dr("授权项目")).AllowClipBoard = Not dr("不可复制")

        End If

    Next

End If