主题：统计问题

 这样？

Dim sql As String = "select num, (select top 1 name from {表A} b where a.num = b.num) as name, (select top 1 datee from {表A} b where a.num = b.num) as datee from (select DISTINCT num from {表a}) a"
Dim g As New CrossTableBuilder("统计表1", sql)
g.HGroups.AddDef("name")
g.VGroups.AddDef("datee", "{0}月")
g.Totals.AddDef("num", AggregateEnum.Count, "num")
g.Build()
MainTable = Tables("统计表1")