主题：根据 生产表的 生产数量，如何快速的 把产品入库，然后增加库存数量

两个方案：

1、我觉得你两个分成两个表，一个半成品表，一个成品表，做个按钮，单击此按钮，将半成品表的选定行复制到成品表，并从半成品表删除此行。

2、或者，做个统计按钮，用于刷新库存，会在在MainTablechanged事件设置代码。

For Each dr As DataRow In DataTables("表名").DataRows

     dr("库存") = DataTables("生产").Compute("Sum(数量)", "产品名称 = '" & dr("产品名称") & “‘”)

Next

既然是编码，想怎样都行的：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目175.rar

库存表再增加一列，用于统计销售数量，然后修改代码，初始库存 + 累计入库 -累计销售，就是最新库存了。

不管担心行不行的问题，只有有规则，Foxtable无所不能，你用foxtable能够设计出一套管家婆来的。

先打好基础，设计好需要的表结构。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目177.rar

没有什么是不可以的，不动表结构，即时更新库存并保存：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目178.table

其实帮助有很多这种例子的。

Select Case e.DataCol.Name
    Case "ruku"
        Dim val As Integer = e.DataRow("shuliang")
        If e.DataRow("ruku") = False Then
            val = -val
        End If
        Dim dr As DataRow = DataTables("GoodsStocks").find("ptypeid = '" & e.DataRow("Ptypeid") & "'")
        If dr IsNot Nothing Then
            dr("Qty") = dr("Qty") + val
            dr("total") = dr("Qty") * dr("price")
        Else
            dr = DataTables("GoodsStocks").AddNew()
            dr("ptypeid") =e.DataRow("ptypeid")
            dr("KtypeId")="00001"
            dr("qty")=dr("qty")
            dr("price")=0
            dr("total")=0
            dr("GOODSORDERID")=0
        End If
        dr.Save()
        e.DataRow.Save()
End Select

根据错误提示，是因为PtypeID列不允许为空。

虽然有下面的代码：

dr("ptypeid") =e.DataRow("ptypeid")

但说不定e.datarow的ptypeid列本来就是空值。

计算机是不会撒谎的，这样测试一下：

Select Case e.DataCol.Name
    Case "ruku"
        Dim val As Integer = e.DataRow("shuliang")
        If e.DataRow("ruku") = False Then
            val = -val
        End If
        Dim dr As DataRow = DataTables("GoodsStocks").find("ptypeid = '" & e.DataRow("Ptypeid") & "'")
        If dr IsNot Nothing Then
            dr("Qty") = dr("Qty") + val
            dr("total") = dr("Qty") * dr("price")
        Else
            dr = DataTables("GoodsStocks").AddNew()
            dr("ptypeid") =e.DataRow("ptypeid")
            dr("KtypeId")="00001"
            dr("qty")=dr("qty")
            dr("price")=0
            dr("total")=0
            dr("GOODSORDERID")=0
        End If

         Messagebox.show(dr.IsNull("ptypeid"))

         Messagebox.show(e.DataRow.IsNull("ptypeid"))
        dr.Save()
        e.DataRow.Save()
End Select

23楼的代码不是解决问题的，而是用来判断到底哪一行的ptypeid为空，也就是说判断到底是dr还是e.DataRow的ptypeid为空，因为你的代码中，同时保存了这两行。

既然24楼的代码直接设置了dr列的ptypeid的值，还是出现问题，那么说明是e.DataRow的ptypeid列为空。

你删除倒数第二行的代码:

e.DataRow.Save()
如果不出现错误提示，就说明前面的判断没错。