Dim trv As WinForm.TreeView = e.Form.Controls("zcflTreeView")
If trv.SelectedNode IsNot Nothing Then
Dim pd As WinForm.TreeNode = trv.SelectedNode
Dim Index As Integer = 1
If pd.Nodes.count >= 1 Then
Index = cint(pd.Nodes(pd.nodes.count - 1).name) + 1
End If
Dim nd As WinForm.TreeNode = pd.Nodes.Add(index,"新节点")
' MessageBox.Show("请为【新节点】重新命名","提示",MessageBoxButtons.OK)
trv.SelectedNode = nd
trv.Select
trv.BeginEdit
Forms("支出类型赋值编辑窗体").Open
End If
这个是再加一个下级节点,怎么修改为增加同级节点呢?弄了半天没弄好