Foxtable(狐表)用户栏目专家坐堂 → 两表条件合并数据


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

主题:两表条件合并数据

帅哥哟,离线,有人找我吗?
恒隆君
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
两表条件合并数据  发帖心情 Post By:2017/9/26 10:32:00 [只看该作者]

以下功能如何实现

表A

列一      列二
A           T1,T2
B           T4
C           T7
D           T2

表B
列一      列二         
B           T5,T11
C           T9,T21
D           T30
E           T37,T51,T55,T67

以列一的名称为条件,合并列二的值。
如:

B     T4,T5,T11

[此贴子已经被作者于2017/9/26 10:32:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/26 10:41:00 [只看该作者]

For Each dr As DataRow in datatables("表A").select("")
    For Each cdr As DataRow In DataTables("表B").Select("第一列 = '" & dr("第一列") & "'")
        Dim ls As new List(Of String)
        if cdr("第二列") <> nothing then ls.AddRange(cdr("第二列").split(","))
        For Each s As String In dr("第二列").split(",")
            If ls.contains(s) = False Then
                ls.add(s)
            End If
        Next
        cdr("第二列") = String.Join(",", ls.ToArray)
    Next
Next

 回到顶部