主题：统计零件需求

以下代码统计 零件需求.

我想改为统计出来的需求数量填充到零件需求表的空格行,零件需求表原有的数据保持不变,能否实现

Dim dic As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
For Each dr1 As DataRow In DataTables("生产计划").DataRows
    For Each dr2 As DataRow In DataTables("零件用量").Select("[产品] = '" & dr1("产品") & "'")
        Dim nm As String = dr2("零件")
        Dim vl As Integer = dr1("生产数量") * dr2("用量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+ vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("零件需求").AddNew()
    dr("零件") = key
    dr("需求数量") = dic(key)
Next

狐爸非常感谢你对我的帮助

我按照你提供的代码修改，还是不可行，不知道问题出在哪

能不能用锁定行

我改用以下代码还是有错，请狐爸帮我看看

Dim dtb As New DataTableBuilder("配件需求表A")
dtb.AddDef("配件名称", Gettype(String), 32)
dtb.AddDef("需求数量", Gettype(Integer))
dtb.Build()
MainTable= Tables("配件需求表A")

Dim dic As new Dictionary(of String,Integer)
DataTables("配件需求表A").DataRows.Clear()
For Each dr1 As DataRow In DataTables("下单生产窗口_Table1").DataRows
    For Each dr2 As DataRow In DataTables("产品配件用量表").Select("[产品型号] = '" & dr1("产品型号") & "'")
        Dim nm As String = dr2("配件名称")
        Dim vl As Integer = dr1("需求数量") * dr2("配件用量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+ vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr3 As DataRow = DataTables("配件需求表A").AddNew()
    dr3("配件名称") = key
    dr3("需求数量") = dic(key)
    'End If
Next

With DataTables("下单生产窗口_Table1")
    .DataRows.Clear()

End With

Dim rr As Row = Tables("产品配件用量表").Current
For Each r3 As DataRow In DataTables("配件需求表A").Select("配件名称 Is Not Null")
    Dim dr4 As DataRow = DataTables("配件需求表").Addnew()
    dr4("配件统计日期") = Date.today
    dr4("配件品类") = rr("配件品类")
    dr4("配件名称") = r3("配件名称")
    dr4("配件规格") = rr("配件规格")
    dr4("配件颜色") = rr("配件颜色")
    dr4("配件单位") = rr("配件单位")
    dr4("需求数量") =r3("需求数量")
Next

填入到配件需求表的  配件品类列 、配件规格列、配件颜色列、配件单位列 数据错误

我用方法一与方法二怎么都提示错误

问题已解决，

谢谢狐爸