主题：[求助]目录树子目录以日期列取年和月作为子目录

帮助例子可以用日期列的年月设目录树

我做的目录树如何像帮助例子一样用日期列的年月设目录树，代码应该怎么改？？

此主题相关图片如下：qq图片20180723113149.png

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

    Select Case e.Node.Level

        Case 0

            Filter = "地址 = '" & dr("地址") & "'"

        Case 1

            Filter = "地址 = '" & dr("地址") & "' And 记账时间 = '" & dr("记账时间") & "'"

        Case 2

            Filter = "地址 = '" & dr("地址") & "' And 记账时间 = '" & dr("记账时间") & "' And 队别 = '" & dr("队别") & "'"  

        Case 3

            Filter = "地址 = '" & dr("地址") & "' And 记账时间 = '" & dr("记账时间") & "' And 队别 = '" & dr("队别") & "' And ID号 = '" & dr("ID号") & "'"                      

    End Select

End If

Tables("主窗口_报表查询窗(全部)").Filter = Filter