- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何统计重复的个数? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152848)
-- 发布时间：2020/7/23 16:15:00
-- 如何统计重复的个数?
01.表A有多个公司名(有些是重复出现的),如何将"表A"各个公司名称,通过代码实现将所有的公司名称(不重复地出现)自动填到表B的"公司名"列里?
02.同时统计出现该公司名称的出现的个数,希望表B达到如下效果:
公司名 个数总计
A公司 12
B公司 7
C公司 7
D公司 1
E公司 1
F公司 2
如何通过代码实现?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:如何统计重复个数.foxdb |
-- 发布时间：2020/7/23 16:33:00
--
参考
Dim Customers As List(Of String)Customers = DataTables("表A").GetValues("公司名")
For Each Customer As String In Customers
Dim dr As DataRow = DataTables("表B").AddNew()
dr("公司名") = Customer
dr("个数总计") = DataTables("表A").Compute("Count([公司名])", "公司名 = \'" & Customer & "\'")
Next
-- 发布时间：2020/7/23 16:35:00
--
参考：http://www.foxtable.com/webhelp/topics/1472.htm
-- 发布时间：2020/7/23 16:40:00
--
谢谢