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

目录树由表A的列1、列2、列3、列4、列5生成，想要实现点击目录树的任一节点时，表A都筛选出对应的唯一一行。

nodemouseclick事件代码：

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节点的时候，右侧页面集合打开第三个页面，实例如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树-测试.foxdb

请老师帮忙看一下，或者代码如何简化一下。谢谢

[此贴子已经被作者于2018/12/16 18:14:38编辑过]

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

只找出图中第一行如何对应？

又报错：

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

tree4的nodemouseclick代码：

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

Select Case e.Node.Level

Case 0

Filter = "[企业名称] = '" & dr("企业名称") & "' and [部门设置] is null and [岗位设置] is null and [第四层机构设置] is null and [第五层机构设置] is null and [第六层机构设置] is null"

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 0

Case 1

Filter = "[企业名称] = '" & dr("企业名称") & "' and [部门设置] = '" & dr("部门设置") & "' and [岗位设置] is null and [第四层机构设置] is null and [第五层机构设置] is null and [第六层机构设置] is null"

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 1

Case 2

Filter = "[企业名称] = '" & dr("企业名称") & "' and [部门设置] = '" & dr("部门设置") & "' and [岗位设置] = '" & dr("岗位设置") & "' and [第四层机构设置] is null and [第五层机构设置] is null and [第六层机构设置] is null"

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 2

Case 3

Filter = "[企业名称] = '" & dr("企业名称") & "' and [部门设置] = '" & dr("部门设置") & "' and [岗位设置] = '" & dr("岗位设置") & "' and [第四层机构设置] = '" & dr("第四层机构设置") & "' And [第五层机构设置] Is null And [第六层机构设置] Is null"

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 3

Case 4

Filter = "[企业名称] = '" & dr("企业名称") & "' and [部门设置] = '" & dr("部门设置") & "' and [岗位设置] = '" & dr("岗位设置") & "' and [第四层机构设置] = '" & dr("第四层机构设置") & "' and [第五层机构设置] = '" & dr("第五层机构设置") & "' and [第六层机构设置] is null"

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 4

Case 5

Forms("安全信息化系统主窗口").Controls("TabControl5").SelectedIndex = 5

End Select

Tables("年度安全目标").Filter = Filter

请帮忙看一下是怎么回事？

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