谢谢老师指正和指导！在老师的耐心指导下，代码已能初步运行。但部分代码还是不能运行，也找不出代码的问题所在，还的麻烦老师帮助。 1、双击“全部”节点时，虽不报错但也不能显示全部行；
2、双击第一层节点“性别”、“民族”、“岗类部门”以及还有下一层节点的“管理”、“生产”、“其它人员”等第二层节点时，报错“索引超出了数组界限”；
3、双击有下一层节点的“管理”、“生产”、“其它人员”等第二层节点，能返回其节点层级数字2和值（比如“管理、生产、其它人员”等文本），但表数据无反映；
4、双击第三层节点时，返回其节点层级数字是3，但值却是第二层节点的值（“管理、生产、其它人员”等文本），同时表数据也无反映。
附上代码如下：
'目录树TreeView1-NodeMouseDoubleClick 事件生成动态目录树代码
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow
Dim tbl As Table = Tables("员工信息")
Dim ary = e.node.fullpath.split("\")
If e.Node.Text <> "全部" Then
If ary(0) = "性别" Then
msgbox(ary.length)
msgbox(ary(1))
tbl.Filter = "性别 Like '%" & ary(1) & "%'"
End If
If ary(0) = "民族" Then
msgbox(ary.length)
msgbox(ary(1))
tbl.Filter = "民族 Like '%" & ary(1) & "%'"
End If
If ary(0) = "岗类部门" Then
msgbox(ary.length)
msgbox(ary(1))
If ary(1) = "岗位类别" Then
msgbox(ary.length)
msgbox(ary(2))
tbl.Filter = "岗位类别 Like '%" & ary(2) & "%'"
ElseIf ary(2) = "工作部门" Then
msgbox(ary.length)
msgbox(ary(3))
tbl.Filter = "工作部门 Like '%" & ary(3) & "%'"
'End If
End If
End If
End If
谢谢！
[此贴子已经被作者于2019/3/23 16:12:59编辑过]
加好友 
发短信
Post By：2019/3/23 16:12:00 [只看该作者]
