最近在做一个物流系统，其中有个“商品库存”表，关联一个“商品入库”表，（采用二级编码关联）另外有一个“商品出库”表（数据来源是导入外部数据），“商品库存”表里面的库存数量等于：

Select Case e.DataCol.name
    Case "二级编码","初始数据"
        e.DataRow("库存数量") = e.DataRow("初始数据")
        If e.DataRow.IsNull("二级编码") = False Then
           
                 e.DataRow("库存数量") = e.DataRow("初始数据") + DataTables("商品入库").Compute("sum(入库数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'") - DataTables("商品出库").Compute("sum(商品数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'") 

            End If
End Select

问题是现在“商品出库”表里面的二级编码有些是包含其他二级编码的：比如二级编码A001，A002 ,A003，A004，A005，其中A005由A001+A002组成，求当“商品出库”表里的行有A001，A002，A003，A004，A005行的时候，“商品库存”表里面对应的A001，A002，A003，A004，A005商品怎么减去数量。

我的思路是：1，“商品库存”表里面没有二级编码A005，当“商品出库”表里面出现A005的时候，“商品出库”表里面自动增加成A001，A002两行；出库数量=A005的出库数量，请求代码怎样写，请求老师指教，或许是更好的方法。

               其实就是仓库中常用到的BOM的问题，求救。

汗，你这样做就不对，数量平分么？看看人家的bom如何设计

红袍老师没有明白我的意思，我的意思是A005是一个套件，商品出库的数据是导入外部EXCEL表的数据，当导入时遇到有二级编码=A005的时候，商品出库里面的行自动删除A005行，而变成里面的子件A001和A002两行，商品出库表里面的两行商品数量=A001*系数5*A005的商品数量和A002*系数10*A005的商品数量。

那个BOM表不能解决我的问题，我是要导入外部数据，每天都有2000多行，请老师指教是否可行。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

比如，库存就可以这样计算

Select Case e.DataCol.name
    Case "二级编码","初始数据"
        If e.DataRow.IsNull("二级编码") = False Then
            Dim drs As List(Of DataRow) = DataTables("BOM").Select("子件 = \'" & e.DataRow("二级编码") & "\'")
            If drs.count = 0 Then
                e.DataRow("库存数量") = e.DataRow("初始数据") + DataTables("商品入库").Compute("sum(入库数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'") - DataTables("商品出库").Compute("sum(商品数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'")
            Else
                Dim sum As Double = 0
                For Each dr As DataRow In drs
                    sum += DataTables("商品出库").Compute("sum(商品数量)", "二级编码 = \'" & dr("二级编码") & "\'") * dr("系数")
                Next
                sum += DataTables("商品出库").Compute("sum(商品数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'")
                e.DataRow("库存数量") = e.DataRow("初始数据") + DataTables("商品入库").Compute("sum(入库数量)", "二级编码 = \'" &e.DataRow("二级编码") & "\'") - sum
            End If
        Else
            e.DataRow("库存数量") = e.DataRow("初始数据")
        End If
End Select

红袍老师，这样的话，就变成了商品出库A005出现的时候，只有A001数据减去了，A002没有变，而A005第二次出现的时候，就不再计算了

 出库表那里，DataColChanged事件

Select Case e.DataCol.Name
    Case "二级编码","商品数量"
        Dim bms As String = DataTables("bom").GetComboListString("子件", "二级编码 = \'" &e.DataRow("二级编码") & "\'")
        DataTables("商品库存").DataCols("二级编码").RaiseDataColChanged("二级编码 in (\'" & bms.Replace("|", "\',\'") & "\')")
End Select

Dim drs As List(Of DataRow) = DataTables("BOM").Select("子件 = \'" & e.DataRow("二级编码") & "\'")

改成

Dim drs As List(Of DataRow) = DataTables("BOM").Select("子件 = \'" & e.DataRow("二级编码") & "\' and 二级编码 <> 子件")