以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有条件的复制数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131727)
--  作者：蓝蚂蚁
--  发布时间：2019/3/5 15:45:00
--  有条件的复制数据
临时表结构及数据如下：
名称               厂家             批号
螺帽     深圳凯康有限公司       A2
螺帽     深圳凯康有限公司       A2     （注：有2处A2）
螺帽     深圳凯康有限公司       B2
螺帽     深圳凯康有限公司       C2
螺帽     深圳凯康有限公司       D2
钎杆     广东中鼎有限公司       T1
钎杆     广东中鼎有限公司       W1
.....      .........                    ...
把上面的数据有条件的复制到A表中：
名称               厂家             批号
螺帽      深圳凯康有限公司    A2，B2，C2，D2   （注：把名称是螺帽，同时厂家是深圳凯康有限公司的批号都提取然后放在一起，并用逗号分开）
钎杆      广东中鼎有限公司    T1,W1           （注：把名称是钎杆，同时厂家是广东中鼎有限公司的批号都提取然后放在一起，并用逗号分开）
....        .....................     ............
[此贴子已经被作者于2019/3/5 15:45:57编辑过]
--  作者：有点甜
--  发布时间：2019/3/5 16:34:00
--  

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("名称|厂家")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("名称") = Vals(i)(0)
    dr("厂家") = Vals(i)(1)
    dr("批号") = DataTables("来源表").GetComboListString("批号", "名称=\'" & vals(i)(0) & "\' and 厂家=\'" & vals(i)(1) & "\'").replace("|", ",")
Next