- 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=149686)
-- 发布时间：2020/5/9 11:57:00
-- [求助]这个中汇总+明细显示在一起的有没有办法求合计
此主题相关图片如下：报表a.png
这个中汇总+明细显示在一起的有没有办法求合计
我这个图中左边是汇总右边是明细
左边是合并模式显示的，我想求合并的汇总数据，但是如果我直接用帮助文档里面的汇总模式，就会重复汇总很多次
有什么办法只求合并模式下的汇总呢？
-- 发布时间：2020/5/9 12:01:00
--
请上传实例说明
-- 发布时间：2020/5/9 13:07:00
--
如图：这样的效果
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:示例1.foxdb |
此主题相关图片如下：示列1.png
我希望汇总的数据是我红色的部分
[此贴子已经被作者于2020/5/9 13:09:34编辑过]
-- 发布时间：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