- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 订单入库，商品数量增加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14002)
-- 发布时间：2011/11/4 16:22:00
-- 订单入库，商品数量增加
我有“订单”，“订单明细”，“商品库存”三个表
“订单”中有列“是否入库”为逻辑性，当为TRUE时
所对应的“订单明细”里面的商品（1、2、3、4）的数量自动添加到“商品库存”中的列“库存数量”---（10+2、10+3、10+4、10+5）里面
请问这个代码怎么写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存数量增加.rar |
-- 发布时间：2011/11/4 16:39:00
--
大概如此
If e.DataCol.Name = "是否入库" Then
If e.NewValue = True Then
Dim drs As List(of DataRow)
drs= DataTables("订单明细") .Select("订单ID =" & e.DataRow("订单ID"))
If drs.count>0 Then
For Each dr As DataRow In drs
Dim dr1 As DataRow = DataTables("库存数量").Find("商品编号= \'" & dr("商品编号") & "\'")
If dr1 IsNot Nothing Then
dr1("库存数量")+ = dr("数量")
End If
Next
End If
End If
End If