主题：[求助]动态目录树节点如何实现筛选？

Dim Value() As String

Dim names() As String = DataTables("系统参数表").DataRows(0)("目录树节点").split("|")

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

Select Case e.Node.Level

    Case 0

            Tables("材料费预算表").filter = names(0) & " = '" & Value(0) & "'"

    Case 1

            Tables("材料费预算表").filter = names(0) & " = '" & Value(0) & "' And " &  names(1) & " = '" & Value(1) & "'"

    Case 2

            Tables("材料费预算表").filter =  names(0) & " = '" & Value(0) & "' And " &  names(1) & " = '" & Value(1) & "' And " &  names(2) & " = '" & Value(2) & "'"

    Case 3

             Tables("材料费预算表").filter =  names(0) & " = '" & Value(0) & "' And " &  names(1) & " = '" & Value(1) & "' And " &  names(2) & " = '" & Value(2) & "' and " &  names(3) & " = '"& Value(3) &"'"

End Select

这样做即可.