之前一直在做分组统计表

但是目前出现一个统计问题

我需求是这样的，我想知道竞争对手在所有报纸媒体投放广告的次数。
我表中每行的数据是按产品来的，可能一个报纸版面有多个产品 那就产生很多行，这种情况就是出版日期，刊物名称，版面，页码均相同，但是产品名称不同，出在同一版面的多个产品 我只算其投放了一次广告，表中内置的分组统计貌似没法解决这个问题

我上示例，如果有不懂的可以问我！

最终我想实现

竞争对手A        投放了23次广告

竞争对手B        投放了47次广告

........

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试1.rar

这个应该不难实现 只是我好久没接触了  忘了~~~~~~~~~

Dim t As Table = CurrentTable
Dim vals As List(Of String) = t.DataTable.GetValues("产品","产品 Is Not Null")
For Each val As String In vals
    Dim arys As List(Of String()) = t.DataTable.GetValues("产品|客户|雇员","产品 = \'" & val & "\'")
    Output.Show(Val & "  " & arys.Count)
Next

订单表里正常，但在楼主的表中有个错误，不知什么原因。

 用了您的代码 我统计了2次 才得到了最终结果 有没办法统计一次 

第一次统计代码为
Dim g As New GroupTableBuilder("统计表1", DataTables("保健品竞品明细"))
g.Groups.AddDef("品牌名称")
g.Groups.AddDef("出版日期", DateGroupEnum.None)
g.Groups.AddDef("刊物名称")
g.Groups.AddDef("版面")
g.Groups.AddDef("页码")
g.Totals.AddDef("产品名称", AggregateEnum.Count)
g.Build()
MainTable = Tables("统计表1")



第二次根据统计表1
Dim g As New GroupTableBuilder("统计表2", DataTables("统计表1"))
g.Groups.AddDef("品牌名称")
g.Totals.AddDef("页码", AggregateEnum.Count)
g.Build()
MainTable = Tables("统计表2")

最终结果为，比如第一名对手草姬  打了38版的广告

此主题相关图片如下：1.png