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

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

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

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

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

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

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

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

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

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

 

。

没有 解决

去掉

dr.Save()
e.DataRow.Save()任一行 或两行都不行。

经过几次 测试。我建立几个 foxtable 内部表。 可以运行。（dr = DataTables("GoodsStocks").AddNew() 成功）

在不同电脑上 一共测试了4次 成功了。

 

可是当 GoodsStocks 来源 sql 数据库的时候，怎么都不成功。

 

管理员可否测试一下，建立SQL 数据表  表名 goodsstocks

两个列 PtypeId   varchar，25

Qty      numeric，9

 

 

再次感谢管理员。必须的！

我的QQ 176004737

下午3点半左右开始有时间。

 

亲爱的 管理员，我超级郁闷中呀。

原来你帮我远程 解决的 问题 column 'ptypeid' does not allow

现在这个问题又出来了！！！

已经确定库存表中没有空行。

 

已经好了吧。

 

 

 AfterOpenProject

 

DataTables("GoodsStocks").BaseTable.Columns("ptypeid").AllowDBNull = True

这个是不能删的。不知道这是什么意思呢？

 

 

还有 我发现 foxtable 缓存 或者是 什么东西 存在一点问题。有时候明明 已经删除掉 自定义录入 的功能，他还是有，直到关闭 foxtable 重新打开 他才会 正常。