Select
Case User.Name
Case
"张三","李四"
Tables("表A").Visible = False
Case
"王五"
Tables("表B").Visible = False
End
Select
还是用“可视化授权的实现”
Tables("授权表").Visible =
(User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
For
Each dr As
DataRow
In
DataTables("授权表").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
End
If
无论前面怎么设计,在导航窗口代码下各节点都不适用。进去后所有人的看到表的权限还是一样的。
Select Case e.Node.Name
Case "债务汇总表"(要使此节点张三看不见,张三也就没法打开这个表,怎么加入限制代码??或者有其他处理方式?)
MainTable = Tables("zwhzb")
Case "新增协议明细表"
MainTable = Tables("xzxymxb")
Case "新增放款明细表"
MainTable = Tables("xzfkmxb")
Case "还本明细表"(要使此节点李四看不见,李四也就没法开打这个表,怎么加入限制代码??或者有其他处理方式?)
MainTable = Tables("hbmxb")
Case "利息明细表"
MainTable = Tables("lxmxb")
Case "工程款明细表"
MainTable = Tables("gckmx")
Case "工程款支付明细表"
MainTable = Tables("gckzfmxb")
Case "还本付息计划表"
MainTable = Tables("hbfxjhb")
Case "债务台账汇总表(1级)"
MainTable = Tables("zwtzhzb3")
Case "债务台账汇总表(2级)"
MainTable = Tables("zwtzhzb2")
Case "债务台账汇总表(3级)"
MainTable = Tables("zwtzhzb1")
Case "年度还本付息计划表"
MainTable = Tables("ndhbfxjhb")
End Select
请问一下在导航窗口怎么授权呢??