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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  把相同列内容中所对应的数值合并到另一个单元格中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4920)

--  作者：卟离卟弃
--  发布时间：2009/11/9 10:10:00
--  把相同列内容中所对应的数值合并到另一个单元格中

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

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

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

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

--  作者：狐狸爸爸
--  发布时间：2009/11/9 10:51:00
--
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

--  作者：PETERD
--  发布时间：2011/10/16 13:03:00
--  [求助]求教怎么将合并多列数据
根据配送单号，合并所对应的数据，如图合并后的效果

--  作者：PETERD
--  发布时间：2011/10/16 13:04:00
--

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