Foxtable(狐表)用户栏目专家坐堂 → [推荐] 统计


  共有3966人关注过本帖树形打印复制链接

主题:[推荐] 统计

帅哥哟,离线,有人找我吗?
leoli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
[推荐] 统计  发帖心情 Post By:2023/5/17 16:42:00 [显示全部帖子]


老师,以下黄色标注的,如何统计,谢谢。

月份 产品 数量 产品重复笔数 总数量
2022_05 A 1 2 3
2022_05 A 2    
2022_05 B 1 2 3
2022_05 B 2    
2022_05 C 1 1  
2022_06 C 1 3 3
2022_06 C 1    
2022_06 C 1    
 

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/5/17 18:47:00 [显示全部帖子]

老师,如下还是很难的,要达到图二的结果,还请指导一下,谢谢!
Dim dt As DataTable = DataTables("表C")
Dim C As List(Of String)
C = dt.GetValues("月份")
For Each Customer As String In C
    dt("总数量") = dt.Compute("Sum(总数量)","[月份] = '" & C & "'")
  Next


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/5/18 20:16:00 [显示全部帖子]

老师显示出错了,如下



图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/5/20 12:24:00 [显示全部帖子]



不对,还是出错了


Dim dt As DataTable = DataTables("表C")
Dim C As List(Of String())
C = dt.GetValues("月份|产品")
Dim dr As DataRow
For Each Customer As String() In C

dr = dt.find("[月份] = '" & Customer (0) & "' and 产品='" & Customer (1) & "'")

    dr("总数量") = dt.Compute("Sum(总数量)","[月份] = '" & Customer(0) & "' and 产品='" & Customer(1) & "'")
  Next


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看


要达成如下的结果:



图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看





 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/5/21 13:19:00 [显示全部帖子]

改这样,啥都没反应
Dim dt As DataTable = DataTables("表C")
Dim C As List(Of String())
C = dt.GetValues("月份|产品","产品 is not null")
Dim dr As DataRow
For Each Customer As String() In C

dr = dt.find("[月份] = '" & Customer (0) & "' and 产品='" & Customer (1) & "'")

    dr("总数量") = dt.Compute("Sum(总数量)","[月份] = '" & Customer(0) & "' and 产品='" & Customer(1) & "'")


  Next



图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/5/24 7:49:00 [显示全部帖子]

老师如附件,还是没有反应的。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip






 回到顶部