主题：多值字段怎么获取拆解呢？求纠正代码

派工单中派工人员是多值字段，现在拟将改多值字段进行拆解，下面的代码出错不能实现拆解，求纠正

将拆解的结果对应到客户信息.员工提成表中派工人员中去 一行一个值

谢谢

For i As Integer = 0 To DataTables("派工单").DataRows.Count-1
Dim dt As DataTable
Dim r As Row = Tables("客户信息.员工提成表").AddNew
Dim lst As New Dictionary(of String ,DataRow)
For Each dr1 As DataRow In DataTables("派工单").DataRows
    If dr1.IsNull("派工人员") = False Then
        Dim nms() As String = dr1("派工人员").Split(",")
        For Each nm As String In nms
            r("派工人员") = nms(i)
            'dt=r.AddNew   这个部分不能实现根据数组新增行  ，求纠正 根据所得到的派工人员数组 对应增加相应行数
        Next
    End If
Next