主题：目录树_节点对表的筛选报错

目录树_节点对表的筛选报错

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

点击浏览该文件:目录树_节点对表的筛选报错.zip

此主题相关图片如下：1目录树报错？.jpg

 没看懂你代码要做的功能。直接说你要做什么。

点击，左边的目录树，对右边表数据筛选

Dim cs() As String = {"f1", "f2", "f3", "f4","f5"}
Dim ary() As String = e.Node.FullPath.split("\")
Dim filter As String = "1=1"
For i As Integer = 0 To e.node.Level
    filter &= " and " & cs(i) & " = '" & ary(i) & "'"
Next
Tables("主表").Filter = filter

 

可以了，谢谢大师