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

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

主题：多值拆解的问题