以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格取2个关联列的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83587)
--  作者：foxstudent
--  发布时间：2016/4/12 21:27:00
--  单元格取2个关联列的值
一个婚礼订单表和新人信息表通过订单号关联，在新人信息表中，新郎新娘各一行记录，能否实现登记好新郎新娘记录后，自动在订单表中将2人姓名一起填入新人姓名单元格？如图

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/4/13 2:46:00
--  

 新人信息表DataColChanged事件

 

If e.DataCol.name = "称谓" Then
    Dim pdr As DataRow = e.DataRow.GetParentRow("表A")
    If pdr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In pdr.GetChildRows(e.DataTable.name)
            str &= dr("称谓") & ","
        Next
        pdr("新人") = str.trim(",")
    End If
End If