主题：[求助]列数据的及时更新

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