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