以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用自定义登录的用户无法打开授权表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22605)
--  作者：wilson
--  发布时间：2012/8/18 12:53:00
--  用自定义登录的用户无法打开授权表

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

 

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

求助！
--  作者：wilson
--  发布时间：2012/8/18 15:25:00
--  

以下为授权表的代码

 

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
--  作者：czy
--  发布时间：2012/8/18 16:36:00
--  
很显然，你现在登录的用户是普通用户，授权表已经被隐藏了。
--  作者：czy
--  发布时间：2012/8/18 16:54:00
--  

删除这行代码

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
--  作者：wilson
--  发布时间：2012/8/18 17:07:00
--  
非常感谢！
--  作者：wilson
--  发布时间：2012/8/18 17:21:00
--  

问题已解决