专家坐堂-手机开发帮助文档中生成汇总模式中代码问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机开发帮助文档中生成汇总模式中代码问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187026)

--  作者：YUNSEL
--  发布时间：2023/6/15 16:38:00
--  手机开发帮助文档中生成汇总模式中代码问题？
我参照手机帮助文档中，生成汇总模式的操作帮助做的实例，网页显示发现最后一个客户没有小计，这是什么原因？
1、下面帮助中代码

此主题相关图片如下：202306151.png

2、网页显示的结果

此主题相关图片如下：202306152.png

--  作者：有点蓝
--  发布时间：2023/6/15 16:48:00
--
If r("客户") <> lr("客户") Then
改为
If r("客户") <> lr("客户") andalso i=dt.DataRows.count - 1 Then

--  作者：YUNSEL
--  发布时间：2023/6/15 17:02:00
--
改过来了，结果啥都没有了

此主题相关图片如下：202306153.png

结果：

此主题相关图片如下：202306154.png

--  作者：有点蓝
--  发布时间：2023/6/15 17:07:00
--

改为
If r("客户") <> lr("客户") orelse i=dt.DataRows.count - 1 Then

--  作者：YUNSEL
--  发布时间：2023/6/15 17:13:00
--
小计行有了，但不在最后一行的位置，插在中间了。

此主题相关图片如下：202306158.png

--  作者：有点蓝
--  发布时间：2023/6/15 17:20:00
--
换个位置处理，在总计前加一个小计

……
  End If
                .Body.AddRow(r("NO."),r("产品"),r("客户"),r("数量"),r("单价"),r("金额"),r("日期"))
            Next
  Dim lr As DataRow = dt.DataRows(dt.DataRows.count - 1)
                        qty = dt.compute("sum(数量)","产品=\'" & lr("产品") & "\' And 客户= \'" & lr("客户") & "\'")
                        amt = dt.compute("sum(金额)","产品=\'" & lr("产品") & "\' And 客户= \'" & lr("客户") & "\'")
                        With .Body.AddRow()
                            .Attribute = "style=\'background-color:#F0FFFF\'"
                            .AddCell("小计 " & lr("客户"),"colspan=\'3\'")
                            .AddCells(qty,"",amt,"")
                        End With
                    End If
            qty = dt.compute("sum(数量)")
            amt = dt.compute("sum(金额)")
            If EndRow >= Count Then
                .Body.AddRow("总计","","",qty,"",amt,"").Attribute = "style=\'background-color:#98FB98\'"
            End If

--  作者：YUNSEL
--  发布时间：2023/6/15 17:26:00
--
搞到了，谢谢！