- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]分组统计 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133940)
-- 发布时间：2019/4/23 20:47:00
-- [求助]分组统计
老师好！
请老师帮助看一下，针对如图窗口数据的统计怎么处理？
谢谢！
此主题相关图片如下：统计.jpg
-- 发布时间：2019/4/23 21:20:00
--
建一个临时表，列：地区、职业、年度、数量
DataTables("表A").DataRows.Clear
For Each r As Row In Tables("委托代理人").Rows
Dim str As String = r("年度代理数量")
For Each s As String In str.replace(vbcr,"").split(vblf)
If s.Trim() = "" Then Continue For
Dim arr() As String = s.Split("-")
Dim dr As DataRow = DataTables("表A").Find("地区=\'" & r("地区") & "\' And 职业 = \'" & r("职业") & "\' and 年度=\'" & arr(0) & "\'")
If dr Is Nothing Then
dr = DataTables("表A").AddNew
dr("地区") = r("地区")
dr("职业") = r("职业")
dr("年度") = arr(0)
End If
dr("数量") = dr("数量")+val(arr(1))
Next
Next