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

此主题相关图片如下：qq截图未命名.png

如图1，物料型号  A所适用的成品型号有4种


此主题相关图片如下：02.png


用什么样的代码能达到图二的效果。。
在B表中根据物料型号，查找表A内容，将符合条件的内容合并到表B的适用成品型号中

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

根据配送单号，合并所对应的数据，如图合并后的效果

此主题相关图片如下：无标题.png