授权目录树的四级代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.node.Level
    Case 0
        dr = DataTables("授权表").Find("功能主模块 = '" & e.Node.Name & "'")
    Case 1
        dr = DataTables("授权表").Find("功能主模块 = '" & e.Node.ParentNode.Name & "' And 一级模块 = '" & e.Node.Name & "'")
    Case 2
        dr = DataTables("授权表").Find("功能主模块 = '" & e.Node.ParentNode.ParentNode.Name & "' And 一级模块 = '" & e.Node.ParentNode.Name & "' And 二级模块 = '" & e.Node.Name & "'")
    Case 3
        dr = DataTables("授权表").Find("功能主模块 = '" & e.Node.ParentNode.ParentNode.ParentNode.Name & "' And 一级模块 = '" & e.Node.ParentNode.ParentNode.Name & "' And 二级模块 = '" & e.Node.ParentNode.Name & "'And 权限 = '" & e.Node.Name & "'")

主题：授权目录树的四级代码怎么写