如题，使用帮助中的代码自定义筛选树错误。

代码：

1、窗口的AfterLoad事件代码：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月 From {表A}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")

2、目录树的NodeMouseDoubleClick事件代码：

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)
    End Select
DataTables("表A").LoadFilter = Filter
DataTables("表A").Load()

错误：

此主题相关图片如下：tm截图未命名1.png

http://www.foxtable.com/help/topics/2344.htm