Dim dr As DataRow dr = DataTables.Find("身份证号 = '" & r("身份证号") & "' and _Identify <>" & r("_Identify"))
If dr IsNot Nothing Then MessageBox.Show("此身份证号已经存在!")
End If
加好友 
发短信
Post By：2021/5/8 13:34:00 [只看该作者]
