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

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

此主题相关图片如下：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