主题：目录树与表对应问题

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView4")

Dim pd As WinForm.TreeNode = tr.SelectedNode

Dim pf As winform.treenode = pd.parentnode

Dim ph As winform.treenode = pf.parentnode

If e.node.level = 0 Then

    Tables("年度安全目标").filter = "企业名称 = '" & e.node.name & "' and 部门设置 is null and 岗位设置 is null and 第四层机构设置 is null and 第五层机构设置 is null and 第六层机构设置 is null"

ElseIf e.node.level = 1 Then

    Tables("年度安全目标").filter = "企业名称 = '" & pf.name & "' and 部门设置 = '" & e.node.name & "' and 岗位设置 is null and 第四层机构设置 is null and 第五层机构设置 is null and 第六层机构设置 is null"

ElseIf e.node.level = 2 Then

    Tables("年度安全目标").filter = "企业名称 = '" & ph.name & "' and 部门设置 = '" & pf.name & "' and 岗位设置 = '" & e.node.name & "' and 第四层机构设置 is null and 第五层机构设置 is null and 第六层机构设置 is null"

End If

用上面的代码时，level1、level2都可以筛选出唯一一行来，level 0 筛选不出来，错误代码如下：

此主题相关图片如下：1.jpg

总体想要实现：点击目录树的任一节点时，表A都筛选出对应的唯一一行，同时，点击level0节点的时候，右侧页面集合打开第一个页面，点击level1节点的时候，右侧页面集合打开第二个页面，点击level2节点的时候，右侧页面集合打开第三个页面，实例如下：