主题：目录树提示操作符丢失？

Dim Value()As String

Dim Filter As String

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

Select Case e.Node.Level

    Case 0

        Filter ="Year(发货日期) = " & Value(0)

    Case 1

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1)

    Case 2

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = '" & Value(2) & "'"

    Case 3

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = '" & Value(2) & " And 市 = '" & Value(3) & "'"

    Case 4

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = '" & Value(2) & " And 市 = '" & Value(3) & " And 县 = '" & Value(4) & "'"

    Case 5

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = '" & Value(2) & " And 市 = '" & Value(3) & " And 县 = '" & Value(4) & "  And 客户 = '" & Value(5) & "'"

End Select

DataTables("出库").LoadFilter = Filter

DataTables("出库").Load()

执行中提示： 在Case 3后操作符丢失，不知出错在那？

MEssageBox.SHow(Filter)