Foxtable(狐表)用户栏目专家坐堂 → [求助]重复值也连接


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

主题:[求助]重复值也连接

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
[求助]重复值也连接  发帖心情 Post By:2022/4/19 7:51:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "图号序号","计算公式"
        Dim dr As DataRow = DataTables("校审汇总").Find("图号序号 = '" & e.DataRow("图号序号") & "'")
        If dr IsNot Nothing Then
            dr("计算公式") = DataTables("校审分项").GetComboListString("计算公式","图号序号 = '" & e.DataRow("图号序号") & "'").Replace("|","+")  
        End If
End Select

上面代码是不重复值,字符串连接,不是想要的结果

求助重复值也连接,也就是所有子表行(含重复值都连接)
比如得到结果(含重复值,不要删除重复值):
中国+广东+中国+广西+广东

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)遍历所有行Select Case e.DataCol.Na...  发帖心情 Post By:2022/4/19 9:45:00 [显示全部帖子]

蓝主,帮忙看看哪里出问题,同步更新和汇总还有有问题

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:aa改成1122不能同步更新,最后1个dd不能汇总.zip


 回到顶部