以下是引用czy在2009-12-19 16:48:00的发言:
基本没什么问题,有点小改动。
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)
这应是1楼问题的最佳答案.