[求助]如何将子表中相同日期的几个字段值填入父表中某一列中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将子表中相同日期的几个字段值填入父表中某一列中

共有3311人关注过本帖树形打印复制链接主题：[求助]如何将子表中相同日期的几个字段值填入父表中某一列中

chh2321

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

[求助]如何将子表中相同日期的几个字段值填入父表中某一列中 发帖心情

Post By：2019/2/17 18:47:00 [只看该作者]

老师，如何将子表中相同日期的几个字段值填入父表中某一列中？

子表

当父表日期中填入2018/2/8时，父表中第一列自动填入如下图：

父表

ID	日期	第一列
1	2018/2/8	a 20mg，b30mg，c40mg

wyz20130512

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2019/2/17 19:42:00 [只看该作者]

父表的DataColChanged事件代码:

Select Case e.DataCol.Name

Case "日期"

Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("子表")

For Each dr As DataRow In drs

e.DataRow("第一列") = e.DataRow("第一列") & dr("第一列") & " " & dr("第二列") & dr("第三列") & ", "

e.DataRow("第一列") = e.DataRow("第一列").TrimEnd(","," ")

End Select

此主题相关图片如下：数据.png

chh2321

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

Post By：2019/2/17 20:18:00 [只看该作者]

谢谢老师！

主题：[求助]如何将子表中相同日期的几个字段值填入父表中某一列中