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

请问一下在导航窗口怎么授权呢？？