关于回答我的节点不重复循环语句的一些理解疑问？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于回答我的节点不重复循环语句的一些理解疑问？

共有1921人关注过本帖树形打印复制链接主题：关于回答我的节点不重复循环语句的一些理解疑问？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/28 8:58:00 [显示全部帖子]

Dim pn = e.node.ParentNode '不声明类型，就是object类型
If pn Is Nothing Then pn = e.sender '父节点如果是空，说明是第一级节点，它没有父节点，只能赋值为目录树本身，即trv
For Each nd As object In pn.nodes '循环父节点下的子节点
    If nd.text=e.NewText AndAlso nd.name <> e.node.name Then     '如果节点的名称等于新节点名称，则重复（排除正在编辑的那个节点）
        msgbox("节点重复")
        e.cancel = True
        Return
    End If
Next

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/28 9:00:00 [显示全部帖子]

2、treeview 是目录树；treenode 是某一个节点； nodes 是某一个节点下的所有子节点。

nd.text是你看到的节点的小名；nd.name是节点的真实姓名，一般和小名一样。

下一主题 >> << 上一主题

主题：关于回答我的节点不重复循环语句的一些理解疑问？