主题：导航栏怎么授权

Select Case e.Node.Name

    Case "债务汇总表"（要使此节点张三看不见，张三也就没法打开这个表，怎么加入限制代码？？或者有其他处理方式？）

if DataTables("授权表").Find("用户名 = '" & User.Name & "' and 表名 ='债务汇总表' and 不可见=false" ) isnot nothing then

        MainTable = Tables("zwhzb")

else

msgbox(没有权限)

end if

    Case "新增协议明细表"