主题：[求助]寻个关于多级分类管理的实例

自建表，

多级分类的管理功能

啥意思啊？不能具体点？

基于表数据表的多级分类管理模块，递归分类可能比较好，不过效率慢点

做档案系统时被这一块难住了。

请用具体的列子，提出具体的问题。

类似这个模块

此主题相关图片如下：a1.png

这个模块使用的地方应该很多吧。不知您那有没有现成的例子。

foxtable关于此类目录树的方案很多，可以先看TreeView控件：

 

http://www.foxtable.com/help/topics/0883.htm

 

 

 

 

    If nd1.Level = 0 Then
        dr = DataTables("授权").Find("一类名称 = '" & nd1.Name & "' And 二类名称 Is Null")
    ElseIf nd1.Level = 1 Then
        dr = DataTables("授权").Find("一类名称 = '" & nd1.ParentNode.Name & "' And 二类名称 = '" & nd1.Name & "'")
    Else
        dr = DataTables("授权").Find("一类名称 = '" & nd1.（ParentNode－１？）.Name & "' And 二类名称 = '" & nd1.ParentNode.Name & "' And 三类名称 = '" & nd1.Name & "'")

    End If

 

红色那段怎么修正？

If nd1.Level = 0 Then
        dr = DataTables("授权").Find("一类名称 = '" & nd1.Name & "' And 二类名称 Is Null And 三类名称 Is Null")
    ElseIf nd1.Level = 1 Then
        dr = DataTables("授权").Find("一类名称 = '" & nd1.ParentNode.Name & "' And 二类名称 = '" & nd1.Name & "' And 三类名称 Is Null")
    ElseIf nd.leevel = 2  Then
        dr = DataTables("授权").Find("一类名称 = '" & nd1.ParentNode.ParenNode.Name & "' And 二类名称 = '" & nd1.ParentNode.Name & "' And 三类名称 = '" & nd1.Name & "'")
    End If
End If