主题：统计列的不重复记录数

假如有一个数据表：

此主题相关图片如下：qq截图20160124101346.png

希望将[品名]作为水平分组列，统计列为[数量]（累计值）、[批次]（记录数）----特别要求的是不重复的记录数，
以求得到如下结果：

此主题相关图片如下：qq截图20160124101541.png

该如何解决？

参考

 Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("第一列", Gettype(String), 16)
dtb.AddDef("总数量", Gettype(Integer))
dtb.AddDef("总批次", Gettype(Integer))
dtb.Build()
For Each nm As String In DataTables("表A").GetValues("第一列")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("第一列") = nm
    dr("总数量") = DataTables("表A").Compute("Sum(数量)","第一列 = '" & dr("第一列") & "'")
    dr("总批次") = DataTables("表A").GetValues("第六列", "第一列 = '" & dr("第一列") & "'").Count
Next
MainTable= Tables("统计")

http://www.foxtable.com/help/topics/2394.htm