- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]单价如何判断货号录入？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25638)
-- 发布时间：2012/11/13 17:14:00
-- [求助]单价如何判断货号录入？
菜鸟请教，入库，库存两个表，入库按键对库存执行入库操作，库存有的，在原来的货号基础上数量累计，没有的新货号在库存里新起一行，录入货号，单价和数量。入库单可一次录入多行，怎么能够让一次多录入的新货号单价都可以判读相应的货号录入呢，附件在里面，给出一段编写的代码就可以。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2012/11/13 17:42:00
--
代码如下
Dim s As Row=Tables("入库单").Current
If Tables("入库单").Current.IsNull("货号") Then
MessageBox.Show("货号不能为空!")
Else
Dim dt1,dt2 As DataTable
dt1 = DataTables("入库单")
dt2 = DataTables("实时库存表")
For Each dr As DataRow In dt1.DataRows
Dim dr2 As DataRow = dt2.find("货号 = \'"& dr("货号") &"\'")
If dr2 Is Nothing Then
dr2 = dt2.AddNew
dr2("货号") = dr("货号")
dr2("入库数量") = 1
dr2("单价") = dr("单价")
Else
dr2("入库数量") = dr2("入库数量") + 1
End If
Next
MessageBox.Show("商品入库成功!")
Forms("入库单").Close
End If
-- 发布时间：2012/11/13 18:20:00
--
十分感谢
-- 发布时间：2012/11/13 18:21:00
--
解决了就好
