主题：求助：多个多值字段选择，当符合某个条件时候，对应在另一表中进行多值拆解成对应行

在领取表中有如下代码：

If e.NewValue IsNot Nothing Then
            SystemReady = False
            Dim nr As Row = Tables("出库表").AddNew()
            Dim Multi As String = e.DataRow("物料编号")
            Dim ary() As String = Multi.Split(",")
            e.DataRow("物料编号") = ary(0)
            For i As Integer = 1 To ary.Length - 1
                nr("物料编号") = ary(i)
            Next 
            Dim Multi1 As String = e.DataRow("物料信息")
            Dim ary1() As String = Multi1.Split(",")
            e.DataRow("物料信息") = ary1(0)
            For i1 As Integer = 1 To ary1.Length - 1
                nr("物料信息") = ary1(i1)
            Next
            SystemReady = True
        End If

物料信息、物料编号未多值选择后，上述代码不起作用，也就是不能再出库表中对应的增加行

求纠正代码：

比如：

A物料 对应有编号 1 2 3 4

B物料 对应编号有 11 12 13 14

假设物料选择了A B 对应编号选择了 1 2  11 13

想当物料编号发生变动的时候 对应的在出库表中对应增加行

A 1

A 2

B 11

B 12

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

点击浏览该文件:多值字段合计成本例子.foxdb

谢谢大红袍老师