Dim t As Table = Tables("主窗口_Table4") Dim g As Subtotalgroup t.SubtotalGroups.Clear() g = New Subtotalgroup g.GroupOn = "姓名" '分组列为姓名列 g.TotalOn = "发放月数" '对发放月数进行统计 t.SubtotalGroups.Add(g) g = New Subtotalgroup g.GroupOn = "单位名称" '分组列为单位名称列 t.SubtotalGroups.Add(g)