Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有条件的复制数据


  共有2091人关注过本帖树形打印复制链接

主题：有条件的复制数据
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		有条件的复制数据  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03027 秒, 4 次数据查询