DataTables("rkzb").Save
DataTables("rkdmx").save
For Each dr As DataRow In DataTables("rkdmx").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("kucuninfo").Find(filter)
        If dr1 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            dr1("入库数量") = dr1("入库数量")+dr("数量")
        Else

            Dim dr2 As DataRow = DataTables("kucuninfo").AddNew()
            dr2("配件编码")=dr("配件编码")
            dr2("配件名称")=dr("配件名称")
            dr2("入库单价")=dr("单价")
            dr2("入库数量")=dr("数量")
            dr2("入库金额") =dr("金额")
        End If
    End If   
Next

上述代码一直提示“数量”出错，各位大师帮我看一下。可中各个字段名称我查过了，是没错的