求:表A中的详细通讯地址与联系电话的及时更新;数据来源是根据关联表B的详细通讯地址与联系电话内容,比较条件是最后的表B的变更时间列。
关联表B中每新增一行,只要保存成功,表A的详细通讯地址与联系电话就会更新成最新的内容。
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "身份证号码"
If dr.IsNull("身份证号码") Then
dr("详细通讯地址") = Nothing
dr("联系电话") = Nothing
Else
Dim dr2 As DataRow = DataTables("表B").Find("身份证号码 = '" & e.NewValue & "'", "变更时间 desc")
If dr2 IsNot Nothing Then
dr("详细通讯地址") = dr2("详细通讯地址")
dr("联系电话") = dr2("联系电话")
End If
End If
End Select
[此贴子已经被作者于2019/9/18 19:50:08编辑过]