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

图片发不上去，例子不会传，我去！我tmd忒有才了！我自己再研究研究吧！谢谢甜版主 费心啦！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树编辑测试.zip

我第一次上传例子不知道对不对 请高手看一下，把我的疑问给解决一下，谢谢了！

目录树是根据"作业区域"表生成的，我想通过编辑目录树，作业区域表里的内容也会同步更新。根据帮助 

“3.8.2.4.5.4.5 编辑目录树之二" 编写的代码，单击一次“增加子节点”按钮， 作业区域表内就会增加一行，我想添加一个 北部区—铸造车间 —破碎机 —生产专用

表里就会出现两行 第一行是：北部区—铸造车间 —破碎机  备注一栏是空的  ；第二行是 北部区—铸造车间 —破碎机 —生产专用 

我只想要第二行，第一行不要出现，请甜版主和各路高手给我这小菜鸟指点一番，谢谢大家了！

Bin超版，你给具体指点一下吧！怎么到最后一层增加 ，我试了好多次代码都错误 我忒菜了 ！谢谢啦！

我去，谢谢甜版主，我昨天研究了一个晚上，怎么改都不行，弄了一个CASE 0，1，2 也不行，原来和CASE 0 CASE 1 CASE 2 有区别的！谢谢啦！

再次感谢，问题圆满解决！以后就会上传例子了！谢谢甜版和Bin超版！

甜版主，因为一个区域中有多个车间，一个车间内有多台设备，我想实现删除 禁止删除区域和车间，删除设备的时候该设备对应目录树第三层、第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

 

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

请指点！谢谢了！

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

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

谢谢甜版主！！