主题：单元格取2个关联列的值

 新人信息表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