各位老师，请问我的问题到底出哪了？问题在截图(我设计表里有“年”，“月”)

Dim Filter As String

Dim y As String = e.Node.DataRow("年")
Dim m As String = e.Node.DataRow("月")
Dim lx1 As String = e.Node.DataRow("产品类型")
Dim cp1 As String = e.Node.DataRow("产品名称")

If Tables("产品库管理记录_table1").DataTable.name="统计表1" Then
    If e.node.Name <> "显示全部 " Then
        Select Case e.Node.Level
            Case 0
                Filter = "年 = \'" & y & "\'"
            Case 1
                Filter = "年 = \'" & y & "\' and 月 = \'" & m & "\'"
            Case 2
                Filter = "年 = \'" & y & "\' and 月 = \'" & m & "\' and 产品类型= \'" & lx1 & "\'"
            Case 3
                Filter = "年 = \'" & y & "\' and 月 = \'" & m & "\' and 产品类型= \'" & lx1 & "\' and  产品名称=\'" & cp1 & "\'"
        End Select
    End If

end If

Tables("产品库管理记录_table1").Filter = Filter

我的表里面也没有“产品种类”

学会调试：

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

这样遇到问题，可以很快找出出错的代码，知道那一行出错，大概也就知道原因了