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

甜版主好，我的目录树是根据数据表生成的 有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

请指点迷津！ 谢谢！