- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于编辑目录树的问题！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61760)
-- 发布时间：2014/12/18 16:29:00
-- 关于编辑目录树的问题！
-- 发布时间：2014/12/18 16:31:00
--
图片发不上去，例子不会传，我去！我tmd忒有才了！我自己再研究研究吧！谢谢甜版主 费心啦！
-- 发布时间：2014/12/18 16:31:00
--
例子上传上来
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2014/12/19 15:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树编辑测试.zip |
我第一次上传例子不知道对不对 请高手看一下，把我的疑问给解决一下，谢谢了！
目录树是根据"作业区域"表生成的，我想通过编辑目录树，作业区域表里的内容也会同步更新。根据帮助
“3.8.2.4.5.4.5 编辑目录树之二" 编写的代码，单击一次“增加子节点”按钮， 作业区域表内就会增加一行，我想添加一个 北部区—铸造车间 —破碎机 —生产专用
表里就会出现两行 第一行是：北部区—铸造车间 —破碎机 备注一栏是空的 ；第二行是 北部区—铸造车间 —破碎机 —生产专用
我只想要第二行，第一行不要出现，请甜版主和各路高手给我这小菜鸟指点一番，谢谢大家了！
-- 发布时间：2014/12/19 15:31:00
--
请你直接到最后一层增加即可
-- 发布时间：2014/12/19 15:38:00
--
Bin超版，你给具体指点一下吧！怎么到最后一层增加 ，我试了好多次代码都错误 我忒菜了 ！谢谢啦！
-- 发布时间：2014/12/19 15:52:00
--
你可以在关闭窗口的时候，把对应记录删除。代码
DataTables("作业区域").DeleteFor("车间名称 is null or 设备名称 is null or 备注 is null")
-- 发布时间：2014/12/19 15:54:00
--
或者增加子节点的代码这样写
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
-- 发布时间：2014/12/19 15:59:00
--
我去，谢谢甜版主，我昨天研究了一个晚上，怎么改都不行，弄了一个CASE 0，1，2 也不行，原来和CASE 0 CASE 1 CASE 2 有区别的！谢谢啦！
-- 发布时间：2014/12/19 16:02:00
--
再次感谢，问题圆满解决！以后就会上传例子了！谢谢甜版和Bin超版！