以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树中，父节点的父节点，怎样表示？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95888)
--  作者：dgztczf
--  发布时间：2017/2/7 21:32:00
--  目录树中，父节点的父节点，怎样表示？
目录树中，父节点的父节点，怎样表示？

我在目录树中，设定了只有三级；在表中有大类、中类、小类三列相应对。

当选择了第一级时，表中对应大类的列；
当选择了第二级时，表中大类对应父节点，选中的节点对应中类的列；
当选择了第三级时，表中大类对应选中节点的“父节点的父节点”，而中类对应父节点，小类对应选中节点。

目前第三种情况，父节点的父节点，不知道怎样表示？

代码如下：
Tables("prd").AllowEdit = True
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView_prd")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim dr As Row = Tables("prd").AddNew
If nd.Nodes.Count < 1 Then
    Select Case  nd.Level
        Case  0
            dr("clss_1") = nd.Text
        Case 1
            dr("clss_1") = nd.ParentNode.Text
            dr("clss_2") = nd.text
        Case 2
            dr("clss_1") =    \'第一类别的还没有解决?
            dr("clss_2") = nd.ParentNode.Text
            dr("clss_3") = nd.text
    End Select
End If
--  作者：有点蓝
--  发布时间：2017/2/7 21:44:00
--  
dr("clss_1") = nd.ParentNode.ParentNode.Text
--  作者：dgztczf
--  发布时间：2017/2/7 22:34:00
--  
谢谢，可以了。