主题：[求教]多字段统计－代码

Dim bcty As WinForm.ComBoBox = e.Form.Controls("ComboBox4")

Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计表1")
dtb.AddDef("年月", Gettype(String), 16)
dtb.AddDef("人员", Gettype(String), 16)
dtb.AddDef("数量", Gettype(Double))
dt = dtb.Build()
'开始逐行累加统计
Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("泵送明细").Select("年月='" & bcty.text & "'")
    If dr1.IsNull("ZYRYZS") = False Then '如果工号列不为空
        Dim nms() As String = dr1("ZYRYZS").Split(",") '将工号列内容拆分成数组
        Dim v As Double = dr1("泵工方量分配_结算方量") / nms.Length '获得平均之后每个工号的生产数量
        For Each nm As String In nms '遍历参与加工此产品的每个工号
            Dim dr2 As DataRow
            Dim key As String = nm & "|" & dr1("财务结算年月") '这里是关键,由工号和产品组成字典的关键词.
            If lst.ContainsKey(key) '如果集合中包括此关键词对应的行
                dr2= lst(key) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("人员") = nm '新增行的工号列设置为此工号
                dr2("年月") = dr1("财务结算年月") '设置增行的产品
                lst.add(key,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("数量") = dr2("数量") + v '加上平均后的产量
        Next
    End If
Next

Tables("泵送明细_Table5").DataSource = DataTables("统计表1")

你也要对临时表【统计表1】进行分组统计，才能连接。