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

我参照手机帮助文档中，生成汇总模式的操作帮助做的实例，网页显示发现最后一个客户没有小计，这是什么原因？

1、下面帮助中代码

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

2、网页显示的结果

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

If r("客户") <> lr("客户") Then

改为

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

改过来了，结果啥都没有了

图片点击可在新窗口打开查看

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

结果：

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

改为

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

小计行有了，但不在最后一行的位置，插在中间了。

图片点击可在新窗口打开查看

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

换个位置处理，在总计前加一个小计

……

  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

搞到了，谢谢！

主题：手机开发帮助文档中生成汇总模式中代码问题？