主题：插入节点问题

 判断一下 Dim nd As WinForm.TreeNode = tr.SelectedNode

 

 

 If nd IsNot Nothing Then

 

 

 End If

 有可能你没有选定，就点击按钮的情况啊。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If tr.Nodes.Count=0 Then
    MessageBox.Show("请先增加根节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else If nd IsNot Nothing Then
    msgbox("请选择节点")
Else
    Dim id As Integer = nd.index
    Select nd.Level
        Case 0                                                    这里有问题
            nd = tr.Nodes.Insert("新角色",id)
            tr.SelectedNode = nd
            tr.Select
            tr.BeginEdit
           
        Case Else
            Dim nm As String =nd.ParentNode.Name & "点" & Vars("numbh")
            nd = nd.ParentNode.Nodes.Insert(nm,id)
            Vars("numbh")=Vars("numbh")+1
            tr.SelectedNode = nd
            tr.Select
            tr.BeginEdit
    End Select
End If