Foxtable(狐表)用户栏目专家坐堂 → 关联子表的多行内容合并显示到父表行的一个字段里


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

主题:关联子表的多行内容合并显示到父表行的一个字段里

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


加好友 发短信
等级:幼狐 帖子:163 积分:1550 威望:0 精华:0 注册:2014/3/27 16:44:00
关联子表的多行内容合并显示到父表行的一个字段里  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:46674 积分:236812 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1550 威望:0 精华:0 注册:2014/3/27 16:44:00
  发帖心情 Post By:2020/3/27 22:34:00 [只看该作者]

谢谢大版!

 回到顶部