以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多值字段怎么获取拆解呢？求纠正代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66916)
--  作者：李孝春
--  发布时间：2015/4/15 21:13:00
--  多值字段怎么获取拆解呢？求纠正代码

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

 

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

 

谢谢

 

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

[此贴子已经被作者于2015/4/15 21:30:48编辑过]
--  作者：黄训良
--  发布时间：2015/4/16 0:28:00
--  


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
--  作者：李孝春
--  发布时间：2015/4/16 11:51:00
--  回复：（黄训良）For i As Integer = 0 To DataTables...
谢谢