主题：关于编辑目录树的问题！

甜版主，因为一个区域中有多个车间，一个车间内有多台设备，我想实现删除 禁止删除区域和车间，删除设备的时候该设备对应目录树第三层、第4层节点和在作业区域表里对应的行全部删除（） 代码如下：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim pth() As String = nd.FullPath.Split("\")
    Dim nd1 As WinForm.TreeNode = tr.SelectedNode
    Select Case nd.Level
       
            'DataTables("作业区域").DeleteFor("区域 = '" & pth(0) & "'")
            'case 1
           
            '  DataTables("作业区域").DeleteFor("区域 = '" & pth(0) & "' And 车间名称 = '" & pth(1) & "'")
           
        Case 2
            DataTables("作业区域").DeleteFor("区域 = '" & pth(0) & "' And 车间名称 = '" & pth(1) & "' And 设备名称 = '" & pth(2) & "'And 备注 = '" & pth(3) & "'")
            nd.Delete()
        Case 1
            MessageBox.show ("车间严禁删除","提示",MessageBoxButtons.OK,messageboxicon.Information)
        Case 0
            MessageBox.show ("区域严禁删除","提示",MessageBoxButtons.OK,messageboxicon.Information)
           
    End Select
   
End If
tr.Select

 

报错：“索引超出了数组界限。”

请指点！谢谢了！

Case 2   说明是第二级

谢谢Bin超版，问题解决了！！

甜版主你好，上次跟你请教的编辑目录树的问题，你给写的那个代码执行起来没有问题，但是如果增加第5层节点，会出现提示：“最多允许四层节点" 点ok后第5层节点还是会增加，请甜版主费心给指导一下！谢谢了！

 

MessageBox.Show("最多允许四层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)  

Return

谢谢甜版主！！