窗口中加入目录树后,点击各节点均可实现筛选功能,可是在CASE 3 中想实现取消筛选却不能实现。不知是什么原因。点击节点3后也能执行,但不是显示所有记录,而是隐藏所有记录。
大家帮助看看 Tables("项目管理").ApplyFilter = False ,这句有问题吗? 谢谢了!!
Dim Value()As String Value = e.Node.FullPath.Split("\") Select Case e.Node.Level Case 0 Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "'" Case 1 Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "' And [申请单位] = '" & Value(1) & "'" Case 2 Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "' And [申请单位] = '" & Value(1) &"' And [厂家名称] = '" & Value(2) & "'" Case 3 Tables("项目管理").ApplyFilter = False End Select
|