主题：[求助]如何统计多值字段中的被选择个数?

如何统计多值字段中的被选择个数?

 要循环每一行，循环每一个值，然后统计才行的。

怎么写代码呢?例如多值字段为[值班人]

 参考代码

 

Dim dic As new Dictionary(of String, Integer)
For Each dr As DataRow In DataTables("表a").Select("第三列 is not null")
    For Each s As String In dr("第三列").split(",")
        If dic.ContainsKey(s) = False Then
            dic.Add(s, 1)
        Else
            dic(s) += 1
        End If
    Next
Next

For Each k As String In dic.Keys
    output.show(k & ":" & dic(k))
Next

循环去该列的每一个单元格的值，用Split方法来切割，具体参考下面链接

如果是SQL数据库

把和谐两个中文去掉.

外部数据源如果是ACCESS 2003以上的版本,也支持replace函数.  内部数据源就不支持了.