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

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

  例子上传上来

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

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

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

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

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

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

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

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

请你直接到最后一层增加即可

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

 你可以在关闭窗口的时候，把对应记录删除。代码

 

DataTables("作业区域").DeleteFor("车间名称 is null or 设备名称 is null or 备注 is null")

或者增加子节点的代码这样写

 

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView2")
nd = tr.SelectedNode
If nd IsNot Nothing Then
   
    Select Case nd.Level
        Case 0
        Case 1
        Case 2
            Dim dr As DataRow = DataTables("作业区域").AddNew
            dr("区域") = nd.ParentNode.ParentNode.Text
            dr("车间名称") = nd.ParentNode.Text
            dr("设备名称") = nd.text
            dr("备注") = "新节点"
        Case 3
            MessageBox.Show("最多允许四层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)  
    End Select
   
   
    nd = nd.Nodes.Add("新节点")
    tr.SelectedNode = nd
    tr.Select()
    tr.BeginEdit()
End If

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

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