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

 按着帮助里面的做法我建立了一个产品表，但是我在表中的产品列前加一列的话就出现了下图的情况，产品名称填到了id那一列，然后数量和金额没有获取不到产品的信息进行统计出来。如果把id一列去掉就正常了，如下图
、
代码如下：
Dim t As Table = Tables("产品")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
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 = 1 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)
        r("产品") = "产品:" & r("产品") & v
    End If
Next
请问这是怎么回事呢

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

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