库存分盘计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "入仓_分盘","出仓_分盘"
        Dim ls As new List(Of String)
        ls.AddRange(e.DataRow("入仓_分盘").split("+"))
        For Each s As String In e.DataRow("出仓_分盘").split("+")
            Dim ary() As String = s.split("*")
            For i As Integer = 0 To ls.Count - 1
                If ary.length = 2 Then
                    Dim ary2() As String = ls(i).split("*")
                    If ary2.length = 2 Then
                        If ary(1) = ary2(1) Then
                            ls(i) = (ary2(0) - ary(0)) & "*" & ary2(1)
                        End If
                    End If
                Else
                    If ls(i) = s Then
                        ls.Removeat(i)
                        Exit For
                    Else
                        Dim ary2() As String = ls(i).split("*")
                        If ary2.length = 2 Then
                            If ary(0) = ary2(1) Then
                                ls(i) = (ary2(0) - 1) & "*" & ary2(1)
                            End If
                        End If
                    End If
                End If
            Next
        Next
        e.DataRow("库存_分盘") = String.Join("+", ls.ToArray)

End Select

主题：库存分盘计算