主题：自定义汇总测试后问题

楼主你这样改一下代码看看吧。

Dim r As Row
For i As Integer = 1 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "产品 = '" & r("id") & "'"
        Dim v As String = " 数量:" & t.Compute("count(数量)",f)
        v = v & "金额:" & t.Compute("Sum(金额)",f)
        r("产品") = "产品:" & r("id") & v
        r("id") = nothing
    End If
Next

 生成表以后，你再对这个表进行合并的设置就行了。

http://www.foxtable.com/help/topics/1373.htm