主题：[原创]关联增加行内容

1、导入之后，保存论文回执；

 

2、运行9楼例子的按钮代码。

多谢指导，但是我要做到的功能，比您现在指导的部分，还要再多一点。

Select Case e.DataCol.Name
    Case "论文邮箱","回执论文题目","论文申请分会场"
        Dim Filter As String = "[姓名] = '" & e.DataRow("姓名") & "'"
        DataTables("CCCM参会回执").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select

If e.DataCol.Name = "姓名" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("CCCM参会回执").Find("姓名 = '" & e.DataRow("姓名") & "'" )
    If dr Is Nothing '如果找到, 则设置各列内容
        dr = DataTables("CCCM参会回执").AddNew
        dr("姓名") = e.DataRow("姓名")
    End If
    dr("论文邮箱") = e.DataRow("论文邮箱")
    dr("回执论文题目") = e.DataRow("论文题目")
    dr("论文申请分会场") = e.DataRow("申请分会场")
End If

再次感谢，这个代码用下来，好舒服的感觉啊！厉害