把相同列内容中所对应的数值合并到另一个单元格中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim lst As New List(of String)
Dim rst As New List(of DataRow )
Dim Val As String
For each dr As DataRow in DataTables("表A").DataRows
    if dr.IsNull("第一列") = False Andalso lst.Contains(dr("第一列")) = False
        lst.Add(dr("第一列"))
        val = ""
        For Each dr2 As DataRow in DataTables("表A").Select("第一列 = '" & dr("第一列") & "'" )
            val = val & dr2("第二列") & ","
        Next
        dr("第二列") = val.trim("'")
    Else
        rst.Add(dr)
    End If
Next
For each dr As DataRow in rst
    dr.Delete
Next

主题：把相同列内容中所对应的数值合并到另一个单元格中