手工筛选树，为什么不显示31号的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Product As String = e.Node.DataRow("业务员")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) '取得该年的第一天
            d2 = d1.AddYears(1)
            Filter = "拖货日期>= #" & d1 & "# And 拖货日期< #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = d1.AddMonths(1)
            Filter = "拖货日期>= #" & d1 & "# And 拖货日期< #" & d2 & "#"
            MessageBox.Show("未设定业务员的客户:" & d2)
        Case 2
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = d1.AddMonths(1)
            Filter = "拖货日期>= #" & d1 & "# And 拖货日期< #" & d2 & "# And 业务员 = '" & Product & "'"
    End Select
End If
Tables("产品分类_Table1").Filter = Filter

主题：手工筛选树，为什么不显示31号的数据