怎么会没有呢，例子中增加根、子节点，每点一次按钮会来一次addnew，一个三给节点一定点三次，一定会出三行？
4、“增加根节点”按钮的Click事件代码：
Dim
dr As DataRow = DataTables("表A").AddNew
dr("大类") = "新节点"
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
5、“增加子节点”按钮的Click事件代码：
Dim
tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
If nd.Level = 2 Then
MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim dr As DataRow = DataTables("表A").AddNew
If nd.Level = 0 Then
dr("大类") = nd.Text
dr("二类") = "新节点"
ElseIf nd.Level = 1
dr("大类") = nd.ParentNode.Text
dr("二类") = nd.text
dr("三类") = "新节点"
End If
nd = nd.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If
End If
加好友 
发短信
Post By：2012/11/26 18:56:00 [显示全部帖子]
Post By：2012/11/26 21:19:00 [显示全部帖子]
