- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139895)
-- 发布时间：2019/8/24 14:18:00
-- 统计表
此主题相关图片如下：统计.png
表格中的项目以“、”隔开，想生成统计表统计A、B、C、D、E各自的总个数，如何实现？
[此贴子已经被作者于2019/8/24 14:18:47编辑过]
-- 发布时间：2019/8/24 14:52:00
--
这种只能遍历所有行，然后使用字典保存各个项目，分别累加，类似：
\'\'\'
Dim dict As new Dictionary(of String,Integer)
For Each r As Row In Tables("表A").Rows
For Each s As String In r("第一列").split("、")
If dict.ContainsKey(s) Then
dict(s) = dict(s) + 1
Else
dict.Add(s,1)
End If
Next
Next
For Each k As String In dict.Keys
Output.Show(k & "=" & dict(k))
Next