主题：分组统计出现重复列

For Each dr As DataRow In DataTables("员工资料").Select("")
    dr("婚姻状况") = dr("婚姻状况").trim
    If dr("婚姻状况") = Nothing OrElse dr("婚姻状况") = "无" Then
        dr("婚姻状况") = "未婚"
    End If
    If dr("婚姻状况") = "其他" Then
        dr("婚姻状况") = "其它"
    End If
Next

Dim b As New crossTableBuilder("统计表1",DataTables("员工资料")) '定义交叉分组表
b.hGroups.AddDef("部门村居","村居")
b.hGroups.AddDef("所站办组","组别")
b.hGroups.AddDef("姓名")
b.vGroups.AddDef("婚姻状况")
b.Totals.AddDef("婚姻状况",AggregateEnum.count)
b.Build