主题：[求助]关于AddNew及跨表统计

1、代码没问题的，实例发上来测试。

2、库存表，你编号有重复的？

3、加上判断 If r1("本次交货") > 0 Then

systemready = False
For Each r1 As Row In Tables("入库导入_采购订单")
    If r1("本次交货") IsNot Nothing OrElse r1("本次交货") > 0
        Dim pr = DataTables("库存").Find("编号 = '" & r1("编号") & "'")
        If pr IsNot Nothing Then
            pr("入库合计") += r1("本次交货")
        End If
        Dim  r2 As Row = Tables("入库表").AddNew
        r2("编号") = r1("编号")
        r2("入库数量") = r1("本次交货")
        r2("入库批次") = r1("辅料批次")
        r2("订单数量") = r1("订单数量")
        r2("订单批次") = r1("订单批次")
        r2("单价") = r1("单价")
        r2("入库时间") = Date.Now
        r2("部门") = "" & user.Name & ""
        r1("本次交货") = Nothing
    Else
    End If
Next
systemready =True

e.Form.close

认认真真看8楼，代码没问题。

如果有问题，上传的例子，说明操作步骤，说明具体问题。

  If r1("本次交货") IsNot Nothing OrElse r1("本次交货") > 0

改成

  If r1("本次交货") > 0