主题：[求助]新版本目录树出错

新的Foxtable版本更新后，目录树双击节点出错，代码如下：

在窗口的afterload

Dim b As New SQLGroupTableBuilder("统计表1","NOK发现列表")
b.C
b.Groups.AddDef("审核日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("审核日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("审核区域")
b.Totals.AddDef("跟踪号",AggregateEnum.Count,"记录数") '根据不重复值列来统计记录数,也就是记录数
b.Build()
'生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("统计表1", "年|月|审核区域")
Dim dt As DataTable = DataTables("统计表1")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Dim Product As String = nd.DataRow("审核区域")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年(" & dt.Compute("Sum(记录数)","年 = " & Year) & "条)"
        Case 1
            nd.Text = nd.text & "月(" & dt.Compute("Sum(记录数)","年 = " & Year & " And 月 = " & Month) & "条)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("记录数") & "条)"
    End Select
    If nd.Text.Contains(Cstr(Date.Today.Year) & "年") Then nd.Expand()
    If nd.Text.Contains(Cstr(Date.Today.Month) & "月") Then nd.Expand()
Next
trv.Nodes.Insert("记录总数","记录总数: (" & dt.Compute("Sum(记录数)") & "条)",0)
trv.ResumeRedraw

目录树的NodeMouseDoubleClick

Dim Filter As String = ""
If e.node.Name <> "记录总数" Then '要用Name属性,不能用Text属性【调整】
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim ctg As String = e.Node.DataRow("审核区域")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) '取得该年的第一天
            d2 = new Date(Year,12,31) '取得该年的最后一天
            Filter = "审核日期 >= #" & d1 & "# And 审核日期 <= #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "审核日期 >= #" & d1 & "# And 审核日期 <= #" & d2 & "#"
        Case 2
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "审核日期 >= #" & d1 & "# And 审核日期 <= #" & d2 & "# And 审核区域 = '" & ctg & "'"
    End Select
End If
_fdt.LoadFilter = Filter
_fdt.Load()

出错信息 

列“年”不属于表 统计表1。

我没看出问题在哪里？求助，谢谢！