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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树取值

共有2096人关注过本帖树形打印复制链接主题：目录树取值

流星2018

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

加好友

发短信

等级：婴狐帖子：5 积分：101 威望：0 精华：0 注册：2018/10/30 15:14:00

目录树取值

Post By：2018/11/1 22:35:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20181101221834.png

我的这个代码是点击目录树，然后在蓝色的地方显示对应的编号，部门信息，现在这个代码呢，能显示正确，可是却把部门表的信息记录弄乱，每点一次节点，就把部门表当前行的值给替换了，这个可以处理吗

流星2018

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

加好友

发短信

等级：婴狐帖子：5 积分：101 威望：0 精华：0 注册：2018/10/30 15:14:00

Post By：2018/11/1 22:36:00 [只看该作者]

If e.Node.Level = 0 Then '如果单击的是第二层节点
    Dim ary = e.node.text.split("|")
    If ary.length = 2 Then
        Dim tr As Row = Tables("部门表").Current
        tr("部门编号") = ary(0)
        tr("部门名称") = ary(1)
    End If
End If

这个代码怎么处理

[此贴子已经被作者于2018/11/1 22:36:20编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/11/1 22:39:00 [只看该作者]

改成

If e.Node.Level = 0 Then '如果单击的是第二层节点
Dim ary = e.node.text.split("|")
If ary.length = 2 Then

Tables("部门表").Filter = "部门编号='" & ary(0) & "' and 部门名称='" & ary(1) & "'"
End If
End If

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

主题：目录树取值