主题：求一种提取的解决方案

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

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

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

 出库表那里，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 二级编码 <> 子件")

红色代码注释掉

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