有两个表 库存表 和进货明细表 ，如何将进货明细表的数据 自动录入到库存表去？代码不执行 不知道错在哪里

For Each dr As DataRow In DataTables("进货单明细").DataRows
    If  dr.IsNull("产品编码") = False  AndAlso dr.IsNull("颜色") = False AndAlso dr.IsNull("仓库") = False Then
        Dim filter As String = "产品编码 =\'" & dr("产品编码") & "\'  And 颜色 =\'" & dr("颜色") & "\'And 仓库 =\'" & dr("仓库") & "\'"
       
        Dim dr1 As DataRow
        dr1 = DataTables("库存表").Find(filter)
        If dr1 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            dr1("入库数量") = dr1("入库数量")+dr("数量")
        Else

            Dim dr2 As DataRow = DataTables("库存表").AddNew()
            dr2("产品编码")=dr("产品编码")
            dr2("产品名称")=dr("产品名称")
            dr2("产品规格")=dr("产品规格")
            dr2("类别名称")=dr("类别名称")
            dr2("类别编码")=dr("类别编码")
            dr2("单位")=dr("单位")
            dr2("颜色")=dr("颜色")
            dr2("仓库")=dr("仓库")
            dr2("入库数量") =dr("数量")
        End If
    End If
   
   
Next