For Each dr1 As DataRow In DataTables("到会人员").DataRows
Dim dr2 As DataRow = DataTables("联系人").Find("姓名='" & dr1("姓名") & "'")
If dr2 Is Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show(dr1("姓名") & "在联系人中没找到,中止查询吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Return Nothing
Else
dr1("电话")= "没有找到电话号码"
End If
Else
dr1("电话")= dr2("电话")
End If