主题：[求助]关于加载树筛选问题

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim ary() As String = e.node.fullpath.split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[品牌] = '" & ary(0) & "'"
        Case 1
            Filter ="[品牌] = '" & ary(0) & "' And [系列名称] = '" & ary(1) & "'"
        Case 2
            Filter ="[品牌] = '" & ary(0) & "' And [系列名称] = '" & ary(1) & "' And [型号] = '" & ary(2) &"'"
    End Select
End If
DataTables("商品信息表").LoadFilter = Filter
DataTables("商品信息表").Load()