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

For Each dr As DataRow in datatables("表A").select("")
    For Each cdr As DataRow In DataTables("表B").Select("第一列 = '" & dr("第一列") & "'")
        Dim ls As new List(Of String)
        if cdr("第二列") <> nothing then ls.AddRange(cdr("第二列").split(","))
        For Each s As String In dr("第二列").split(",")
            If ls.contains(s) = False Then
                ls.add(s)
            End If
        Next
        cdr("第二列") = String.Join(",", ls.ToArray)
    Next
Next

主题：两表条件合并数据