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

按照23贴的 方法还是不行

就连这样都不行呢

一样的错误提示

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") ="00002"
            dr("KtypeId")="00001"
            dr("qty")=val
            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

成功的时候  出现两次 False 窗口。