Foxtable(狐表)用户栏目专家坐堂 → [求助]treeview增加


  共有1694人关注过本帖树形打印复制链接

主题:[求助]treeview增加

帅哥哟,离线,有人找我吗?
yjh2002
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:2066 威望:0 精华:0 注册:2017/4/24 13:47:00
[求助]treeview增加  发帖心情 Post By:2017/7/9 21:33:00 [只看该作者]

在treeview上增加一个节点代码如下:
Dim tr As WinForm.TreeView
Dim pd As WinForm.TreeNode
pd = tr.SelectedNode.ParentNode
pd.Nodes.Add("99",“aaa") "99"是肯定没有重复的二级节点。
出现错误提示:
未将对象引用设置到对象的实例。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/9 22:00:00 [只看该作者]

Dim tr As WinForm.TreeView = e.form.controls("TreeView1")
Dim pd = tr.SelectedNode.ParentNode
If pd Is Nothing Then
    pd = tr
End If
pd.Nodes.Add("99","aaa")
[此贴子已经被作者于2017/7/9 22:00:20编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yjh2002
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:2066 威望:0 精华:0 注册:2017/4/24 13:47:00
  发帖心情 Post By:2017/7/11 9:43:00 [只看该作者]

还是不行啊。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170711094203.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/11 9:44:00 [只看该作者]

不要给pd定义类型,或者可以定义为object类型。看2楼,直接复制粘贴。

 回到顶部
帅哥哟,离线,有人找我吗?
yjh2002
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:2066 威望:0 精华:0 注册:2017/4/24 13:47:00
  发帖心情 Post By:2017/7/11 10:11:00 [只看该作者]

好了,谢谢您。但为啥要这样操作才行呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/11 10:13:00 [只看该作者]

以下是引用yjh2002在2017/7/11 10:11:00的发言:
好了,谢谢您。但为啥要这样操作才行呢?

 

如果节点是第一层,那么其父节点是空值,其父节点应该是目录树本身,也就是tr。


 回到顶部