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编辑过]