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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多值拆解的问题

共有2040人关注过本帖树形打印复制链接主题：多值拆解的问题

douglas738888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1175 积分：8792 威望：0 精华：0 注册：2012/4/18 16:28:00

多值拆解的问题 发帖心情

Post By：2016/5/30 11:27: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 dr As DataRow In DataTables("合同表").DataRows

If dr.IsNull("审核人员") = False Then

Dim nms() As String = dr("审核人员").Split(",")

For Each nm As String In nms

Dim r As Row = Tables("合同表.合同审核").AddNew

r("审核人员") = nms(i)

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/30 11:29: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 dr As DataRow In DataTables("合同表").DataRows
        If dr.IsNull("审核人员") = False Then
            Dim nms() As String = dr("审核人员").Split(",")
            For Each nm As String In nms
                Dim r As Row = Tables("合同表.合同审核").AddNew
                r("审核人员") = nm
            Next
        End If
    Next
Next

下一主题 >> << 上一主题

主题：多值拆解的问题