\'生成统计表的结构
Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计")
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("产量登记").DataRows
    If dr1.IsNull("员工工号") = False Then \'如果工号列不为空
        Dim nms() As String = dr1("员工工号").Split(",") \'将工号列内容拆分成数组
        Dim v As Double = dr1("数量") / nms.Length \'获得平均之后每个工号的生产数量
        For Each nm As String In nms \'遍历参与加工此产品的每个工号
            Dim dr2 As DataRow
            If lst.ContainsKey(nm) \'如果集合中包括此工号对应的行
                dr2= lst(nm) \'将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() \'否则增加一行.
                dr2("工号") = nm \'新增行的工号列设置为此工号
                lst.add(nm,dr2) \'将新增行添加到字典中,以便接下来检索
            End If
            dr2("数量") = dr2("数量") + v \'加上平均后的产量
        Next
    End If
Next

在命令窗口执行上面的代码，即可得到如下统计结果：

\'生成统计表的结构
Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计")
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("产量登记").DataRows
    If dr1.IsNull("员工工号") = False Then \'如果工号列不为空
        Dim nms() As String = dr1("员工工号").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
MainTable = Tables("统计")

问题：上面是帮助实例，它是用平均计算员工产量，但有时不能平均分，而按一定比例的分

1，不是平均分，如何按分配表的比例进行统计，“分配表”的字段有“员工工号，员工姓名，分配比例”？

2，如果不用跨表，分配表来取值，是直接在“产量登记”表的“员工工号”写明，如“员工工号”0002/50,0003/10,是工号/产量，这类方法计算？