主题：[求助]带统计目录树的筛选条件

Dim Filter As String = ""   '带统计的点击事件

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Value As String
Value = e.Node.Name
If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
    Select Case e.Node.Level
        Case 0
            ‘Filter = "[承办人] = '" & dr("承办人") & "'"

Dim  y As  Integer =  Date.Today.Year
Dim  m As  Integer =  Date.Today.Month
Dim  dt1 As  New  Date(y,  m,  1)
Dim  dt2 As  New  Date(y,  m,  Date.DaysInMonth(y,  m))  '获取本月的最后一天

        Filter = "[承办人] = '" & dr("承办人") & "' and 结案日期 >= #"  &  dt1  &  "# And  结案日期 <= #"  &  dt2  &  "#"
        End Select
End If
Tables("本月结案_Table1").Filter = Filter