专家坐堂-关联子表的多行内容合并显示到父表行的一个字段里Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关联子表的多行内容合并显示到父表行的一个字段里  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147933)

--  作者：home8225
--  发布时间：2020/3/27 15:08:00
--  关联子表的多行内容合并显示到父表行的一个字段里
父表-计划明细-字段：SOID| 合同号 | 合同累计数量|
01 |20200327、20200325| 15

子表-合同分配-字段：SOID|HTID | 合同号 | 合同数量|
01 | 21 | 20200327 | 10
01 | 22 | 20200325 | 5

请问一下这种情况，怎么把子表的合同号合并显示到父表的合同号里，（如上图）
如果能显示成 |20200327-10,20200325-5| 就更好了

[此贴子已经被作者于2020/3/27 15:09:09编辑过]

--  作者：有点蓝
--  发布时间：2020/3/27 15:16:00
--
父表datacolchanged
If e.DataCol.Name = "SOID" Then
    e.DataRow("合同号") = DataTables("子表").SQLGetComboListString("合同号+‘-’+合同数量","[SOID] = \'" & e.NewValue & "\'").replace("|",",")
End If

子表datacolchanged
Select Case e.DataCol.Name
    Case "合同号","合同数量"
        Dim pr As DataRow
        pr = DataTables("父表").Find("SOID = \'" & e.DataRow("SOID") & "\'")
        If pr IsNot Nothing Then
            DataTables("父表").DataCols("SOID").RaiseDataColChanged(pr)
        End If
End Select

--  作者：home8225
--  发布时间：2020/3/27 22:34:00
--
谢谢大版！