标题：[求助]自定义筛选树错误（问题已解决）

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

 

代码：

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

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

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

 

感谢贺老师回复，添加“外部数据源名称”后，错误已消除。