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

手工新建一个表，名称为“统计”，此表共两列，一列名为“字符”，字符，字符型，一列名为“出现次数”，整数型。

按钮代码。

Dim t As New DataTableBuilder("temp") '创建临时表
t.AddDef("字符", GetType(String), 32)
t.Build()
Tables("temp").Visible = false
For Each dr1 As DataRow In DataTables("表A").DataRows '遍历表A所有列,所有行,将数据写入临时表
    For Each dc As DataCol In DataTables("表A").DataCols
    Dim Dr2 As DataRow = DataTables("temp").AddNew()
        dr2("字符") = dr1(dc.name)
    Next
Next
DataTables("temp").DeleteFor("[字符] Is Null") '删除临时表空行
DataTables("统计").DataRows.Clear()
dim f As New Filler '填充数据
f.SourceTable = DataTables("temp")
f.DataTable = DataTables("统计")
f.Fill()
'计算出现次数
For Each dr As DataRow In DataTables("统计").DataRows
    dr("出现次数") = DataTables("temp").Compute("Count(字符)", "字符 = '" & dr("字符") & "'")
Next

 

充值就免了，论坛本是互帮互助的地方，帮点小忙谈何报酬(除非定制系统，否则这个规不要去破)。
如果有机会去绵阳，请我吃一顿倒是很乐意接受。

基本没什么问题，有点小改动。

Dim s As Date = Date.Now()
Dim t As New DataTableBuilder("temp") '创建临时表
t.AddDef("字符", GetType(String), 32)
t.TableVisible = false
t.Build()
DataTables("统计").DataRows.Clear()
for Each dc as Datacol in DataTables("表A").Datacols
    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.DataTable = DataTables("统计") '指定数据接收表
f1.ExcludeNullValue = true
f1.Fill() '填充数据
For Each dr As DataRow In DataTables("统计").DataRows
    dr("出现次数") = DataTables("temp").Compute("Count(字符)", "字符 = '" & dr("字符") & "'")
Next
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)