- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教一个比较复杂的录入计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94194)
-- 发布时间：2016/12/18 11:02:00
-- 求教一个比较复杂的录入计算问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
此主题相关图片如下：qq截图20161218102707.png
此主题相关图片如下：qq截图20161218102721.png
我想实现，首先A表对应B表相同的产品编号相同的项目，将B表中对应的材料在A表中去递减，剩余数量为零，如果为负数，将数量填入到使用库存数量
-- 发布时间：2016/12/18 11:38:00
--
Dim dta As DataTable = DataTables("表A")
Dim dtb As DataTable = DataTables("表B")
Dim dr As DataRow = dta.DataRows(1)
msgbox(dr("产品编号"))
Dim sum As Double = 0
Dim bdrs = dtb.Select("产品编号 = \'" & dr("产品编号") & "\'")
For Each bdr As DataRow In bdrs
dr(bdr("使用项目")) = bdr("数量")
sum += bdr("数量")
Next
If sum > dr("数量") Then
bdrs(bdrs.count-1)("使用库存量") = sum - dr("数量")
End If
-- 发布时间：2016/12/18 12:30:00
--
此主题相关图片如下：qq截图20161218122743.png
不行,有问题
[此贴子已经被作者于2016/12/18 12:30:05编辑过]
-- 发布时间：2016/12/18 12:33:00
--
需要将数量递减，并填入到对应的A表项目里
-- 发布时间：2016/12/18 13:14:00
--
A表,项目A、项目B、项目C, 的数值是需要自动填入进去的
-- 发布时间：2016/12/18 15:15:00
--
无法理解你的逻辑，看懂2楼代码。