插入节点问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

插入节点代码第一级有问题，但是没看出哪有问题，求老师给看看。

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
    Dim nm As String =nd.ParentNode.Name & "点" & Vars("numbh")
    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
            nd = nd.ParentNode.Nodes.Insert(nm,id)
            Vars("numbh")=Vars("numbh")+1
            tr.SelectedNode = nd
            tr.Select
            tr.BeginEdit
    End Select
End If

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,系统启用,Button4,Click
详细错误信息：
未将对象引用设置到对象的实例。

绿色代码看起来不应该会报空值错误

可能是你前面有错误,没有选中的节点,所以报错.你调试一下看看

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

If nd IsNot Nothing Then

End If

老师

如何选定呢

Dim nd As WinForm.TreeNode = tr.SelectedNode
这不是选定了吗

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

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

主题：插入节点问题