主题：目录树问题

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

        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("新节点")

请求帮助