以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将子表中相同日期的几个字段值填入父表中某一列中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131119)

--  作者:chh2321
--  发布时间:2019/2/17 18:47:00
--  [求助]如何将子表中相同日期的几个字段值填入父表中某一列中
老师,如何将子表中相同日期的几个字段值填入父表中某一列中?
子表
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

--  作者:wyz20130512
--  发布时间: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
图片点击可在新窗口打开查看


--  作者:chh2321
--  发布时间:2019/2/17 20:18:00
--  

谢谢老师!