主题：[求助]代码报错

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(JYG607) = '" & Value(0) & "'"
    Case 1
        Filter ="Year(JYG607) = '" & Value(0) & "' And Month(JYG607) = '" & Value(1) & "'"
    Case 2
        Filter ="Year(JYG607) = '" & Value(0) & "' And Month(JYG607) = '" & Value(1) & "'  And GS607 =  '" & Value(2) & "'"
End Select
DataTables("Zsyspb").LoadFilter = Filter
DataTables("Zsyspb").Load()