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

目录树在手动添加第二层、第三层节点的时候报错：

此主题相关图片如下：qq截图20180329103528.jpg

代码如下：

此主题相关图片如下：qq截图20180329103843.jpg

此主题相关图片如下：qq截图20180329103858.jpg

请问，是哪里错了，怎么改？谢谢！

原来的时候最多四层结构，不报错，今天又加上了两层，报错

[此贴子已经被作者于2018/3/29 10:41:43编辑过]

没必要这样处理，如果要得到各个节点的值，参考这种做法（FullPath），如

Dim Value() As String
Value = nd.FullPath.Split("\")

msgbox(value.length)

msgbox(value(0))

msgbox(value(1))

你们是专业的，我不是专业的，您还是指点我在原代码上改一下吧

Dim tr As WinForm.TreeView

tr = e.Form.Controls("TreeView2")

Dim nd As WinForm.TreeNode

nd = tr.SelectedNode

Dim pd As WinForm.TreeNode

pd = nd.ParentNode

Dim sd As winform.treenode

sd = pd.ParentNode

Dim wd As WinForm.TreeNode

wd = sd.ParentNode

If nd IsNot Nothing Then

If nd.Level = 5 Then

MessageBox.Show("最多允许六层结构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Dim dr As DataRow = DataTables("组织机构和职责").AddNew

If nd.Level = 0 Then

dr("企业名称") = nd.Text

dr("部门设置") = "新节点"

ElseIf nd.Level = 1

dr("企业名称") = pd.Text

dr("部门设置") = nd.text

dr("岗位设置") = "新节点"

ElseIf nd.Level = 2

dr("企业名称") = sd.Text

dr("部门设置") = pd.Text

dr("岗位设置") = nd.text

dr("第四层机构设置") = "新节点"

ElseIf nd.Level = 3

dr("企业名称") = wd.Text

dr("部门设置") = sd.Text

dr("岗位设置") = pd.Text

dr("第四层机构设置") = nd.text

dr("第五层机构设置") = "新节点"

ElseIf nd.Level = 4

dr("企业名称") = wd.ParentNode.Text

dr("部门设置") = wd.Text

dr("岗位设置") = sd.Text

dr("第四层机构设置") = pd.Text

dr("第五层机构设置") = nd.text

dr("第六层机构设置") = "新节点"

End If

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

tr.SelectedNode = nd

tr.Select()

tr.BeginEdit()

End If

谢谢了！

Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView2")
Dim nd As WinForm.TreeNode
nd = tr.SelectedNode
Dim ary = nd.FullPath.Split("\")
If nd IsNot Nothing Then
    If nd.Level = 5 Then
        MessageBox.Show("最多允许六层结构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Dim dr As DataRow = DataTables("组织机构和职责").AddNew
        If nd.Level = 0 Then
            dr("企业名称") = ary(0)
            dr("部门设置") = "新节点"
        ElseIf nd.Level = 1
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = "新节点"
        ElseIf nd.Level = 2
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = "新节点"
        ElseIf nd.Level = 3
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = ary(3)
            dr("第五层机构设置") = "新节点"
        ElseIf nd.Level = 4
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = ary(3)
            dr("第五层机构设置") = ary(4)
            dr("第六层机构设置") = "新节点"
        End If
        nd = nd.Nodes.Add("新节点")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
    End If
End If

主题：目录树添加节点报错