主题：[求助]如何取众数

 表达式无法取众数的函数，要用代码，参考

Dim dic As new Dictionary(Of String, Integer)
Dim count As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("")
    Dim v As String = dr("第三列")
    If dic.ContainsKey(v) = False Then
        dic.Add(v, 1)
    Else
        dic(v) += 1
    End If
    If dic(v) > count Then
        count = dic(v)
    End If
Next
For Each key As String In dic.keys
    If dic(key) = count Then
        msgbox(key & " " & dic(key))
    End If
next