- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何统计某表A单元格中不同文本出现的次数? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5427)
-- 发布时间：2009/12/10 13:30:00
-- 如何统计某表A单元格中不同文本出现的次数?
请教个问题:如何统计某表A单元格中不同文本出现的次数?谢谢!(短信告知电话号码充30元话费以示谢意!)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/12/10 14:00:00
--
表的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
-- 发布时间：2009/12/10 14:18:00
--
谢谢杨大姐! 看我用EXCEL统计结果,再看看用FOXTABLE如何实现？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/12/10 15:57:00
--
哈哈，看来您得给杨大姐手机充值了！
-- 发布时间：2009/12/10 16:14:00
--
充值是没有问题的。程版再看看？DataColChanged似难解决问题。
-- 发布时间：2009/12/10 16:21:00
--
呵呵，跟您开玩笑的，杨大姐才没这么小气呢！
我现在手头工作有点忙，只有等晚上看看有没有时间，还没看是啥问题呢，先让各位高手们先看看！
-- 发布时间：2009/12/10 16:51:00
--
手工新建一个表，名称为“统计”，此表共两列，一列名为“字符”，字符，字符型，一列名为“出现次数”，整数型。
按钮代码。
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
-- 发布时间：2009/12/10 18:23:00
--
哈哈，看来我得给Czy老师的手机充值了！
不知春节过后C老师的手机换号没有？最迟星期天充过来。不收不行，曹老师奉献太多了。
-- 发布时间：2009/12/10 18:44:00
--
充值就免了，论坛本是互帮互助的地方，帮点小忙谈何报酬(除非定制系统，否则这个规不要去破)。
如果有机会去绵阳，请我吃一顿倒是很乐意接受。
-- 发布时间：2009/12/10 20:24:00
--
充值就免了，论坛本是互帮互助的地方，帮点小忙谈何报酬(除非定制系统，否则这个规不要去破)。
如果有机会去绵阳，请我吃一顿倒是很乐意接受。
这个"规"我早就想破了,对于你来说是小忙,对于我来说有时是大忙.论坛虽是互帮互助的地方,我私下认为对基础的部分不谈报酬是正确的(主流应该是这样),但对于自己很感兴趣、自己不能解决、有点"代工"性质的应给报酬（哪怕是象征性表示也可合情理）。
随时欢迎曹老师到绵阳！！！