以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]增加节点的问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161773)
--  作者：2425004926
--  发布时间：2021/3/29 9:48:00
--  [求助]增加节点的问题？
以下代码：当找到名称为“长江”的这个节点时，并且是一级节点，那么增加一个子节点，为何在测试时红色的两行都有问题？该怎么改？

Dim tr As winform.treeview = e.form.controls("treeview1")
Dim nd As winform.treenode
nd = tr.nodes("长江")
If nd IsNot Nothing Then
    If nd.level = 0 Then
        nd.nodes.add("新节点")
    End If
End If
[此贴子已经被作者于2021/3/29 9:58:26编辑过]
--  作者：有点蓝
--  发布时间：2021/3/29 10:12:00
--  
Dim tr As winform.treeview = e.form.controls("treeview1")
Dim nd As winform.treenode
For Each nd In tr.nodes
    If nd.name =  "长江"
        nd.nodes.add("新节点")
        Exit For
    End If
Next
--  作者：2425004926
--  发布时间：2021/3/29 10:25:00
--  
谢谢！