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

 参考代码

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