主题：[求助]

我开发一个库存管理软件，想在出库单(JM12001)中产品每增加一个，对应库存(产品)中产品就减少一个，如何做？谢谢！

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

点击浏览该文件:操作界面_0816.zip

密码？

1976

看了一下你的这个系统，和你说一下我的思路啊，

你是按照物料编码对应单独的物料的，所以呢，可以把物料编码作为独立的键查找。

我用描述性的语言写这个代码：

可以在jm12001表的datachanged事件中设置：

dim dr as datarow

select case datacol.name

    case "数量" '数量发生变化时，进行下面的操作

        if e.datarow("代码") > "" and e.datarow("数量") > "" then

          dr=datatables("产品").find("[代码] = '" & e.datarow("代码") & "'")

          if dr isnot nothing then

              Dim wz As Integer = Tables("产品").FindRow(dr)
                  If wz >= 0 Then
                  Tables("产品").Position = wz
             End If

          tables("产品").current("数量") = tables("产品").current("数量") - e.datarow("数量")

        end if
        end if

end select

此主题相关图片如下：未命名.jpg

 

我试了一下，不行，出现附件中提示，请查看。你能不能在附件里做好我看看，谢谢！

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

点击浏览该文件:操作界面_0817.zip

其实不需要写代码，用关联和表达式就行：

  

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

点击浏览该文件:操作界面.table

 

建议： 输入数据的时候，不要有的全角，有的半角，最好全是半角。

条条大路通罗马，高手，非常感谢！