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

For i As Integer = 0 To DataTables("派工单").DataRows.Count-1
Dim dt As DataTable
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

Dim r As Row = Tables("客户信息.员工提成表").AddNew

            r("派工人员") = nms(i)
        Next
    End If
Next