@有点甜老师，继续求助，谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

NodeMouseClick事件代码如下：

Dim Filter As String

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

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter = "[模块类别] = '" & dr("模块类别") & "'"

Case 1

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "'"

Case 2

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'"

Case 3

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'And [模块定义] = '" & dr("模块定义") & "'"

End Select

ELSE

Filter =""

End If

Tables("全球研发中心标准模块库").Filter = Filter

问题二去精华帖中搜索高级筛选总有一款适合你

[此贴子已经被作者于2018/2/25 23:09:38编辑过]

主题：@有点甜 老师，继续求助，谢谢！