| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树插入节点提示错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94210) |
| -- 作者：huangxueyao -- 发布时间：2016/12/18 22:41:00 -- 目录树插入节点提示错误 http://www.foxtable.com/webhelp/scr/1988.htm 上面这个教程里面，有个【插入节点】的按钮 代码是： Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode = tr.SelectedNode Dim id As Integer = nd.index If nd.ParentNode Is Nothing Then nd = tr.Nodes.Insert("新节点",id) Else nd = nd.ParentNode.Nodes.Insert("新节点",id) End If tr.SelectedNode = nd tr.Select tr.BeginEdit 如果此时没有选择任何节点的话就会出现错误，提示【未将对象引用设置到对象的实例。】 我用If nd Is Nothing Then 来判断，没有作用，请问正确方法应该是怎样？ 我是新手，谢谢大家指点~ 我感觉这里应该判断nd是否存在，而不是判断是否空值，但是代码我不会写~
|
| -- 作者：狐狸爸爸 -- 发布时间：2016/12/19 8:53:00 -- Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode = tr.SelectedNode If nd Is Nothing Then Return End If Dim id As Integer = nd.index If nd.ParentNode Is Nothing Then nd = tr.Nodes.Insert("新节点",id) Else nd = nd.ParentNode.Nodes.Insert("新节点",id) End If tr.SelectedNode = nd tr.Select tr.BeginEdi
|
| -- 作者：huangxueyao -- 发布时间：2016/12/19 11:18:00 -- 谢谢谢谢~ |