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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63746)

--  作者：jiangxun
--  发布时间：2015/1/27 22:35:00
--  目录树问题

在帮助文档中“三层”目录树代码是：

        Dim dr As DataRow = DataTables("表A").AddNew
        If nd.Level = 0 Then
            dr("大类") = nd.Text
            dr("二类") = "新节点"
        ElseIf nd.Level = 1
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.text
            dr("三类") = "新节点"
        End If
        nd = nd.Nodes.Add("新节点")

我需要“四层”目录树代码是下边这样么？

        Dim dr As DataRow = DataTables("表A").AddNew
        If nd.Level = 0 Then
            dr("大类") = nd.Text
            dr("二类") = "新节点"
        ElseIf nd.Level = 1
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.text
            dr("三类") = "新节点"

        ElseIf nd.Level = 2
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.ParentNode.Text
            dr("三类") = nd.text

            dr("四类") = "新节点"

        End If
        nd = nd.Nodes.Add("新节点")

请求帮助

--  作者：有点甜
--  发布时间：2015/1/27 22:44:00
--
Dim dr As DataRow = DataTables("表A").AddNew
If nd.Level = 0 Then
    dr("大类") = nd.Text
    dr("二类") = "新节点"
ElseIf nd.Level = 1
    dr("大类") = nd.ParentNode.Text
    dr("二类") = nd.text
    dr("三类") = "新节点"
ElseIf nd.Level = 2
    dr("大类") = nd.ParentNode.ParentNode.Text
    dr("二类") = nd.ParentNode.Text
    dr("三类") = nd.text
    dr("四类") = "新节点"
End If
nd = nd.Nodes.Add("新节点")

--  作者：jiangxun
--  发布时间：2015/1/27 22:53:00
--
谢谢了！