主题：用自定义登录的用户无法打开授权表

Forms("授权窗口").open()  
MainTable = Tables("授权表")

 

用上述代码（菜单按钮）无法打开授权表与授权窗口。不过在系统菜单用户是可以打开的。

求助！

以下为授权表的代码

 

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("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "'" )
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
End If

很显然，你现在登录的用户是普通用户，授权表已经被隐藏了。

删除这行代码

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

非常感谢！

问题已解决