- 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=131119)
-- 发布时间：2019/2/17 18:47:00
-- [求助]如何将子表中相同日期的几个字段值填入父表中某一列中
老师，如何将子表中相同日期的几个字段值填入父表中某一列中？
子表
当父表日期中填入2018/2/8时，父表中第一列自动填入如下图：
| ID | 日期 | 第一列 | 第二列 | 第三列 |
| 1 | 2018/2/8 | a | 20 | mg |
| 1 | 2018/2/8 | b | 30 | mg |
| 1 | 2018/2/8 | c | 40 | mg |
当父表日期中填入2018/2/8时，父表中第一列自动填入如下图：
父表
| ID | 日期 | 第一列 |
| 1 | 2018/2/8 | a 20mg，b30mg，c40mg |
-- 发布时间：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("第三列") & ", "
Next
e.DataRow("第一列") = e.DataRow("第一列").TrimEnd(","," ")
End Select
此主题相关图片如下：数据.png
-- 发布时间：2019/2/17 20:18:00
--
谢谢老师！