直接交叉统计就行的啊。
Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))g.HGroups.AddDef("成单日期", DateGroupEnum.Year, "年")g.HGroups.AddDef("姓名")g.VGroups.AddDef("成单日期", "{0}月")g.Totals.AddDef("成交额", "成交额")g.Build()MainTable = Tables("统计表1")