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

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后操作符丢失，不知出错在那？

窗口中插入一个目录树(TreeView),窗口的AfterLod 事件代码设为：

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "SELECT DISTINCT 产品,客户From {订单}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"产品|客户")

trv.Nodes.Insert("加载所有数据",0)

帮助文件中的例。