分组统计与交叉统计的查寻条件相同,但交叉统计能统计出结果,分组统计只有列,没有行(行数为0)代码如下:
Dim filter As String
filter = "( [发货单位] <> '' or [收货单位] <> '' ) and [更新时间] >= '" & Date.Today.AddDays( - 3) & "'"
Dim xstj As New CrossTableBuilder("临时统计1", DataTables("称重信息"))
xstj.HGroups.AddDef("更新时间", DateGroupEnum.Hour, "时")
xstj.VGroups.AddDef("更新时间", DateGroupEnum.Day, "{0}日")
xstj.Totals.AddDef("净重", "净重")
xstj.OrderByTotal = True
xstj.Filter = filter
xstj.FromServer = True
xstj.Build()
Dim lstj As New GroupTableBuilder("临时统计", DataTables("称重信息"))
lstj.Groups.AddDef("更新时间", DateGroupEnum.Year, "年")
lstj.Groups.AddDef("更新时间", "月")
lstj.Groups.AddDef("更新时间", DateGroupEnum.Day, "日")
lstj.Groups.AddDef("更新时间", DateGroupEnum.Hour, "时")
lstj.Totals.AddDef("净重")
lstj.Filter = filter
lstj.Build()
MainTable = Tables("临时统计")