以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]寻个关于多级分类管理的实例  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16564)
--  作者：西瓜住持
--  发布时间：2012/2/17 15:21:00
--  [求助]寻个关于多级分类管理的实例

自建表，

多级分类的管理功能
--  作者：狐狸爸爸
--  发布时间：2012/2/17 15:28:00
--  
啥意思啊？不能具体点？
--  作者：西瓜住持
--  发布时间：2012/2/17 16:06:00
--  

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

做档案系统时被这一块难住了。
--  作者：狐狸爸爸
--  发布时间：2012/2/17 16:08:00
--  
请用具体的列子，提出具体的问题。
--  作者：西瓜住持
--  发布时间：2012/2/17 16:56:00
--  
类似这个模块
--  作者：西瓜住持
--  发布时间：2012/2/17 16:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：a1.png
图片点击可在新窗口打开查看
--  作者：西瓜住持
--  发布时间：2012/2/17 16:58:00
--  
这个模块使用的地方应该很多吧。不知您那有没有现成的例子。
--  作者：狐狸爸爸
--  发布时间：2012/2/17 17:00:00
--  

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

 

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

 

 

 

 
--  作者：西瓜住持
--  发布时间：2012/2/17 17:37:00
--  

    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

 

红色那段怎么修正？
--  作者：狐狸爸爸
--  发布时间：2012/2/17 17:49:00
--  
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