在窗口对“数据表”的本月结案数筛选,目录树显示统计数据。下列代码点击目录树时,表的筛选不对,哪里问题?谢谢!
'目录树筛选条件--获取本月结案数据
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
附件:
[此贴子已经被作者于2017/10/21 14:10:23编辑过]