- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 附件里的当前库存 用代码怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78329)
-- 发布时间：2015/12/7 14:49:00
-- [求助] 附件里的当前库存 用代码怎么写
不知道这个当前库存的代码怎么写
在DataColChanged 写了一段代码 但是达不到效果
重复选择相同产品编号的产品时 ，库存还是总库存减去当前行数量所得。
这个跟帮助文件里的流水账 也不一样。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试1.zip |
-- 发布时间：2015/12/7 15:01:00
--
Select Case e.DataCol.name
Case "数量"
Dim sumin As Double = DataTables("产品表").compute("sum(进货数量)", "产品编号 = \'" & e.DataRow("产品编号") & "\'")
Dim sumout As Double = e.DataTable.compute("sum(数量)", "产品编号 = \'" & e.DataRow("产品编号") & "\' and _Identify <= " & e.DataRow("_Identify"))
e.DataRow("当前库存") = sumin - sumout
End Select