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

请教个问题:如何统计某表A单元格中不同文本出现的次数?谢谢!(短信告知电话号码充30元话费以示谢意!)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

表的DataColChanged设为
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("表A")
If e.DataCol.Name = "第三列" And dr.IsNull("第三列") = False Then
    dr("第十列") = dt.Compute("Count(第三列)","[第三列] = '" & dr("第三列") & "'")
    End If

谢谢杨大姐! 看我用EXCEL统计结果,再看看用FOXTABLE如何实现？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

哈哈，看来您得给杨大姐手机充值了！

充值是没有问题的。程版再看看？DataColChanged似难解决问题。

呵呵，跟您开玩笑的，杨大姐才没这么小气呢！

        我现在手头工作有点忙，只有等晚上看看有没有时间，还没看是啥问题呢，先让各位高手们先看看！

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

按钮代码。

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

 

    哈哈，看来我得给Czy老师的手机充值了！不知春节过后C老师的手机换号没有？最迟星期天充过来。不收不行，曹老师奉献太多了。

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

      这个"规"我早就想破了,对于你来说是小忙,对于我来说有时是大忙.论坛虽是互帮互助的地方,我私下认为对基础的部分不谈报酬是正确的(主流应该是这样),但对于自己很感兴趣、自己不能解决、有点"代工"性质的应给报酬（哪怕是象征性表示也可合情理）。
     随时欢迎曹老师到绵阳！！！