主题：[求助]复杂目录树筛选问题

Dim Value()As String

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

    Case 0

        Tables("设备表").Filter =" "

End Select

'如果点击的是第一层节点,那么就全部显示数据;相反如果点击的是其他的节点,那么就执行如下的筛选

Select Case  e.node.text

Case "动力设备"

    Tables("设备表").Filter = "[设备大类型] = '动力设备'"

Case "机械设备"

    Tables("设备表").Filter = " [设备大类型] = '机械设备' "

Case "停用"

Tables("设备表").Filter = " [使用状况] = '停用' "

Case "正在使用"

Tables("设备表").Filter = " [使用状况] = '正在使用' "

Case "未使用"

Tables("设备表").Filter = " [使用状况] = '未使用' "

End Select

这样也可以完成任务，但是数据表中的数据是变化的，这样的代码未必合适了，所以在此请大家帮助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目10.zip