主题：分组统计

 呃……面对代码，无言以对。

 你现在运行代码报错，还是怎样？

 呃，楼主，你要的不是分组统计，你要的是汇总统计吧？

Dim t As Table = Tables("窗口1_Table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 楼主估计没有清分组统计和汇总统计，之所以出现两行，是因为你的 电镀 有空格……取出数据的时候，请去除空格。