改成
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 IfEnd If
加好友 
发短信
Post By：2018/11/1 22:39:00 [显示全部帖子]
