主题：如何统计某表A单元格中不同文本出现的次数?

欲提高一下速度,请C老师帮看一下有没有问题,谢谢!
Dim s As Date = Date.Now()
Dim t As New DataTableBuilder("temp") '创建临时表
t.AddDef("字符", GetType(String), 32)
t.Build()

DataTables("temp").DataRows.Clear()
Dim Values() As String
Dim n1 As Integer
for Each dc as Datacol in DataTables("表A").Datacols
    n1 = n1 +1
    dim f As New Filler
    f.SourceTable = DataTables("表A") '指定数据来源
    f.SourceCols = dc.name '指定数据来源列
    f.DataTable = DataTables("temp") '指定数据接收表
    f.DataCols = "字符" '指定数据接收列
    f.Distinct = false
    f.Fill() '填充数据
   Next
dim f1 As New Filler
    f1.SourceTable = DataTables("temp") '指定数据来源
    f1.SourceCols = "字符" '指定数据来源列
    f1.DataTable = DataTables("统计") '指定数据接收表
    f1.DataCols = "字符" '指定数据接收列
    f1.Distinct = true
    f1.Fill() '填充数据
For Each dr As DataRow In DataTables("统计").DataRows
    dr("出现次数") = DataTables("temp").Compute("Count(字符)", "字符 = '" & dr("字符") & "'")
Next

Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)