标题：订单入库，商品数量增加

1楼

youyuweinihao 发表于：2011/11/4 16:22:00

我有“订单”，“订单明细”，“商品库存”三个表

“订单”中有列“是否入库”为逻辑性，当为TRUE时

所对应的“订单明细”里面的商品（1、2、3、4）的数量自动添加到“商品库存”中的列“库存数量”---（10+2、10+3、10+4、10+5）里面

请问这个代码怎么写

下载信息 [文件大小：下载次数： ]
点击浏览该文件:库存数量增加.rar

2楼

don 发表于：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

共2 条记录, 每页显示 10 条, 页签: [1]