Dim g As New SQLGroupTableBuilder("分组统计表","入库表")
Dim y As Integer = 2013 '指定年份
Dim m As Integer = 5 '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
g.Groups.AddDef("入库日期")
g.Groups.AddDef("品名")
g.Groups.AddDef("规格")
g.Groups.AddDef("材质")
g.Groups.AddDef("零件号")
g.Groups.AddDef("国标")
g.Groups.AddDef("炉号")
g.Groups.AddDef("等级")
g.Groups.AddDef("品牌")
g.Groups.AddDef("储位")
g.Totals.AddDef("入库数量")
g.Filter = "入库日期 >= #" & dt1 & "# And 入库日期 <= #" & dt2 & "#"
g.Build()
筛选5月份并分组统计