主题：目录树取值

此主题相关图片如下：qq图片20181101221834.png

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

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

这个代码怎么处理