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

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

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