甜版主好,我的目录树是根据数据表生成的 有4级 分别是 “区域” “车间名称” “设备名称” “备注” 最后我添加4级子目录的时候 表里的值都是新节点 ,不是我输入的内容 我在添加子目录button 中的click事件中的代码如下:
nd = tr.SelectedNode
If nd IsNot Nothing Then
Dim dr As DataRow = DataTables("作业区域").AddNew
Select Case nd.Level
Case 0
dr("区域") = nd.Text
dr("车间名称") = "新节点"
Case 1
dr("区域") = nd.ParentNode.Text
dr("车间名称") = nd.text
dr("设备名称") = "新节点"
Case 2
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
请指点迷津! 谢谢!