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

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

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

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 = "结案日期 >= #"  &  dt1  &  "# And  结案日期 <= #"  &  dt2  &  "#"
If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
    Select Case e.Node.Level
        Case 0
            Filter = " and [承办人] = '" & dr("承办人") & "'"
    End Select
End If
Tables("本月结案_Table1").Filter = Filter

按上楼代码，选择目录树姓名是，只显示承办人这个月的行，下面代码怎么修改？

 

            Filter = filter &  "(承办人 Like '" & e.node.Name & "%')"  '承办人开头的目录树节点,筛选只显示 这个月的行,求助

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:本月结案 - 回复.table

此主题相关图片如下：只显示这个月的第一行筛选.jpg

参考

 

http://www.foxtable.com/webhelp/scr/2720.htm