对datatable进行分组求和(此方法只能汇总一列)
源数据
(From p In FilterData.AsEnumerable()
Group By x= New With { Key.a =p.Item("分配")} Into Grp =
Group Select FilterData.Clone.LoadDataRow (New Object() {grp(0)(0),grp.Sum(
Function ( r )If(String.IsNullOrEmpty(r("金额").ToString) Or String.IsNullOrWhiteSpace(r("金额").ToString),0,Convert.ToDouble(r("金额").ToString))
)},False)
).CopyToDataTable
grp(0)(0) :egg:grp(1)(2)分组后,按照没组第2行第3列的名称作为显示名称