以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  weui小计汇总咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186324)
--  作者：chen_sheng
--  发布时间：2023/4/22 10:40:00
--  weui小计汇总咨询
我想显示每个机台的小计汇总  发现是最后一个没有汇总  恳请官方指导 谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:dm.txt


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

[此贴子已经被作者于2023/4/22 10:51:25编辑过]
--  作者：有点蓝
--  发布时间：2023/4/22 11:09:00
--  
……
                End If
                .Body.AddRow(r("计划生产日期"),r("生产机台"),r("产品类别"),r("颜色"),r("数量"))
            Next

Dim r As DataRow = dt.DataRows(dt.DataRows.count-1)
qty = dt.compute("sum(数量)"," 生产机台= \'" & r("生产机台") & "\'")
                        With .Body.AddRow()
                            .Attribute = "style=\'background-color:#F0FFFF\'"
                            .AddCell("小计 " & r("生产机台"),"colspan=\'4\'")
                            .AddCells(qty)
                        End With

            qty = dt.compute("sum(数量)")
            \' amt = dt.compute("sum(金额)")
            If EndRow >= dt.DataRows.count Then
                .Body.AddRow("总计","","","",qty).Attribute = "style=\'background-color:#98FB98\'"
            End If