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

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

虽然有下面的代码：

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

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

确定ptypeid 列不是空值。

只要 所有nothing 情况下 都不可以新增列，如下图79行。

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

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贴的 方法还是不行

就连这样都不行呢

一样的错误提示

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 窗口。 

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

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

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

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

管理员，麻烦您再帮我看一下吧。

生产记录表 点击入库，如果仓库里面没有相应的产品，则仓库添加相应的产品，和数量。如何实现呢？

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

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

不好意思  搞错了 。应该是 产品id。改成 产品id 就可以运行了。

在实际操作中 有 ptypeid 列的。真的有。但是不知道为什么不成功。实例是用的外表SQL数据。所以不方便上传实例。只能另外做了一个简单的模拟例子。在两个例子中切换，搞晕头了。

管理员也是很辛苦呀。这几天白天黑夜都在帮我解决问题。我经常在想，少问一些吧，管理员不容易。但是没办法，我的基础比较差，而且目前我的功能也不多，先暂时设置好这个 生产记录的功能。如果可以用的话 要先缓一缓，先把仓库管理好了，以后再慢慢考虑开发一个自己的管理系统。毕竟管家婆真的不太好用。

明天再认真检查一下实例，不行的话还得请管理员再帮忙一下。

。