Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这个中汇总+明细显示在一起的有没有办法求合计


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

主题：[求助]这个中汇总+明细显示在一起的有没有办法求合计
帅哥哟，离线，有人找我吗？
职业技术学校
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1819 威望：0 精华：0 注册：2019/5/13 12:37:00 		[求助]这个中汇总+明细显示在一起的有没有办法求合计  发帖心情 Post By：2020/5/9 11:57:00 [只看该作者]

 


图片点击可在新窗口打开查看此主题相关图片如下：报表a.png
图片点击可在新窗口打开查看

 

这个中汇总+明细显示在一起的有没有办法求合计

 

我这个图中左边是汇总右边是明细

左边是合并模式显示的，我想求合并的汇总数据，但是如果我直接用帮助文档里面的汇总模式，就会重复汇总很多次

有什么办法只求合并模式下的汇总呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/9 12:01:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
职业技术学校
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1819 威望：0 精华：0 注册：2019/5/13 12:37:00 		  发帖心情 Post By：2020/5/9 13:07:00 [只看该作者]

如图：这样的效果
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:示例1.foxdb



图片点击可在新窗口打开查看此主题相关图片如下：示列1.png
图片点击可在新窗口打开查看


我希望汇总的数据是我红色的部分 
[此贴子已经被作者于2020/5/9 13:09:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/9 13:58:00 [只看该作者]

需使用代码处理，类似：http://www.foxtable.com/webhelp/topics/1911.htm

Dim t As Table = Tables("表D")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()

g = New Subtotalgroup
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row = Tables("表D").Rows(Tables("表D").Rows.count(True) - 1,True)
Dim Products As List(Of String()) = DataTables("表D").GetValues("入库日期|工序|投入数|产出数|不良品数")
Dim  a,b,c As Integer
For Each ss As String() In Products
    a = a + cint(ss(2))
    b = b + cint(ss(3))
    c = c + cint(ss(4))
Next
r("投入数") =a
r("产出数") =b
r("不良品数") =c
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询