主题：[求助]汇总模式

Dim f As String = "商品名称 = '" & r("商品名称") & "'"

改为：

Dim f As String = "商品名称 = '" & r("客户名称") & "'"

因为你分组行的商品名称显示在客户名称列

要知其然，知其所以然，7楼告诉你改名称，意思是改为第一列的名称，既然第一列的名称是编号，你就改为编号啊：

Dim t As Table = Tables("进销存")
Dim g As Subtotalgroup
t.StopRedraw()
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.Filter = "日期 >= #9/1/2015# And 日期 <= #12/28/2015#"
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "商品名称"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "商品名称 = '" & r("编号") & "'"
        Dim v As String =  "  交易数:" & t.Compute("Count(日期)",f)
        v = v & "  数量:" & t.Compute("Sum(出库_数量)",f)
        v = v & "  金额:" & t.Compute("Sum(出库_金额)",f)
        r("商品名称") = "商品:" & r("编号") & v
    End If
Next
t.ResumeRedraw()
t.ShowCell(t.Rows.Count(True) - 1, 0) '显示最后一行

为了通用，可以：

Dim t As Table = Tables("进销存")
Dim g As Subtotalgroup
t.StopRedraw()
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.Filter = "日期 >= #9/1/2015# And 日期 <= #12/28/2015#"
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "商品名称"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "商品名称 = '" & r(t.Cols(0).Name) & "'"
        Dim v As String =  "  交易数:" & t.Compute("Count(日期)",f)
        v = v & "  数量:" & t.Compute("Sum(出库_数量)",f)
        v = v & "  金额:" & t.Compute("Sum(出库_金额)",f)
        r("商品名称") = "商品:" & r(t.Cols(0).Name) & v
    End If
Next
t.ResumeRedraw()
t.ShowCell(t.Rows.Count(True) - 1, 0) '显示最后一行

g.TotalOn = "出库_数量,出库_金额"

改为：

g.TotalOn = "出库_数量,出库_金额,入库_数量,入库_金额"