Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")'年度
Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")'季度
Dim y As Integer = cb1.Value
Dim q As Integer = cb2.Value
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) '获取该季度的第一天
Dim dt2 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) '获取该季度的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("技能考察表").Filter = Filter
Dim g As New CrossTableBuilder("季度汇总表", DataTables("技能考察表"))
g.HGroups.AddDef("日期", DateGroupEnum.Year, "年度")
g.HGroups.AddDef("日期", DateGroupEnum.Quarter, "季度")
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("项目")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("考察分数", AggregateEnum.Max, "考察分数")
g.filter = Filter
g.Build()
MainTable = Tables("季度汇总表")
加好友 
发短信
Post By：2019/2/10 11:45:00 [显示全部帖子]
