专家坐堂-[求助]获取整列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取整列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127279)

--  作者：OKK
--  发布时间：2018/11/9 21:14:00
--  [求助]获取整列

分类1
分类2
分类3
分类4
分类5
分类6
分类7
分类8
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类5
分类5
分类5
分类5
分类2
分类2
分类2
分类2
分类2
分类2
分类1
分类1
分类1
分类1
分类1
分类1
分类1
分类1
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类1
分类2
分类3
分类4
分类5
分类6
分类7
分类8
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
......

以上是表A第一列的所有内容，一共有超过10万行，我想统计共有多少个分类，再统计每个分类各有多少数量

第一步是要先找出所有分类，然后再进行统计

但我第一步就出问题了，我使用如下代码，很慢很慢...

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.Rows.count-1
    Dim r As Row = t.Rows(i)
    output.show(r("第一列"))
Next

请问有没有其它办法可以简单快速统计？

--  作者：有点蓝
--  发布时间：2018/11/9 22:00:00
--
分组统计：http://www.foxtable.com/webhelp/scr/0677.htm

\'定义一个GroupTableBuilder，名称为"统计表1"，对订单表进行统计。
Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("第一列") \'根据产品分组
b.Totals.AddDef("第一列",AggregateEnum.Count,"数量") \'对数量进行统计
b.Build \'生成统计表
Maintable = Tables("统计表1") \'打开生成的统计表

--  作者：y2287958
--  发布时间：2018/11/9 22:02:00
--
请看分组统计的用法

Dim b As New SQLGroupTableBuilder("统计表1","表A")
b.Groups.AddDef("第一列")
b.Totals.AddExp("数量","1")
b.Build

--  作者：OKK
--  发布时间：2018/11/9 22:34:00
--

明白，谢谢