删除
For Each s As String In e.Form.Controls("CheckedComboBox8").text.Split("|") b.Totals.AddDef(s) '添加列用于统计Next
勾选统计记录数,而不是累计数
b.Totals.AddDef(s,AggregateEnum.count) '统计记录数