主题：入库明细保存同时存入库存表提示出错。

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

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

可以了，数量是整数，所以'And 数量 ='" & dr("数量") &这一段代码有问题，不够细心造成了