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

在窗口对“数据表”的本月结案数筛选，目录树显示统计数据。下列代码点击目录树时，表的筛选不对，哪里问题？谢谢！

 

'目录树筛选条件--获取本月结案数据

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))  '获取本月的最后一天
Dim  Filter As  String
Filter =  "结案日期 >= #"  &  dt1  &  "# And  结案日期 <= #"  &  dt2  &  "#"
Tables("数据表").Filter =  Filter

'生成统计表
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("数据表"),Filter)
b.Groups.AddDef("承办人")
b.Totals.AddDef("案号",AggregateEnum.Count,"案件数")      '根据案号列来统计记录数,也就是案件数
dt = b.Build       '参数设置为False,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"承办人")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim bm As String = nd.DataRow("承办人")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("Sum(案件数)","承办人 = '" & bm & "'") & "件)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(案件数)") & "件)",0)
trv.ResumeRedraw

 

附件：

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

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

dt = b.Build(true)

目录树形成后，窗口表没有筛选，点击目录树节点，也不筛选。单击节点代码：

 

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("承办人") & "'"
        End Select
End If
Tables("本月结案_Table1").Filter = Filter

弹出筛选条件看看

弹出的筛选条件是对的。

我在afterload加了句，窗口表显示也对了：

目录树筛选条件--获取本月结案数据

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))  '获取本月的最后一天
Dim  Filter As  String
Filter =  "结案日期 >= #"  &  dt1  &  "# And  结案日期 <= #"  &  dt2  &  "#"

’Tables("数据表").Filter =  Filter

Tables("本月结案_Table1").Filter = Filter

......

 

现在的问题是点击目录树时需要再加上这个条件，Tables("本月结案_Table1").Filter = Filter

 

Select Case e.Node.Level
        Case 0
            Filter = "[承办人] = '" & dr("承办人") & "'"---------------这句怎么改？
End Select

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

Filter = "[承办人] = '" & dr("承办人") & "' and " & Tables("本月结案_Table1").Filter

点第一次，筛选正确；再点第二个节点，就没有数据了...

单击节点代码：

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("承办人") & "'"

        Filter = "[承办人] = '" & dr("承办人") & "' and " & Tables("本月结案_Table1").Filter 
        End Select
End If
Tables("本月结案_Table1").Filter = Filter

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

打开窗口后，显示正确，点击每个承办人，筛选也正确。

再次点击   "显示所有行" 时，就显示整个datatable数据了。

反过头来，再点击每个承办人，还是正确。

 

 

此主题相关图片如下：gif.gif