以文本方式查看主题

-  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)

--  作者:youyuweinihao
--  发布时间:2011/11/4 16:22:00
--  订单入库,商品数量增加

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

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

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

请问这个代码怎么写

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:库存数量增加.rar


--  作者: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
            Next
        End If
    End If
End If