- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]重复值也连接 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176578)
-- 发布时间：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
上面代码是不重复值，字符串连接，不是想要的结果
求助，重复值也连接，也就是所有子表行（含重复值都连接）
比如得到结果（含重复值，不要删除重复值）：
中国+广东+中国+广西+广东
-- 发布时间：2022/4/19 8:34:00
--
遍历所有行
Select Case e.DataCol.Name
Case "图号序号" \'需要赋值的列名不要放到这里
Dim dr As DataRow = DataTables("校审汇总").Find("图号序号 = \'" & e.DataRow("图号序号") & "\'")
If dr IsNot Nothing Then
Dim s As String
For Each dr As DataRow In DataTables("校审分项").Select("图号序号 = \'" & e.DataRow("图号序号") & "\'", "计算公式")
s = s & "+" & dr("计算公式")
Next
dr("计算公式") = s.Trim("+")
End If
End Select
-- 发布时间：2022/4/19 9:45:00
-- 回复：（有点蓝）遍历所有行Select Case e.DataCol.Na...
蓝主，帮忙看看哪里出问题，同步更新和汇总还有有问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:aa改成1122不能同步更新，最后1个dd不能汇总.zip |
-- 发布时间：2022/4/19 9:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:历遍汇总.zip |