Dim dr As DataRow = DataTables("表A").SQLFind("身份证号='" & e.Post Values("身份证号") & "' or 身份证号1 = '" & e.Post Values("身份证号") & "' or 身份证号2 = '" & e.Post Values("身份证号") & "' or 身份证号3 = '" & e.Post Values("身份证号") & "' or 身份证号4='" & e.Post Values("身份证号") & "'","身份证号 desc,身份证号1 desc ,身份证号2 desc,身份证号3 desc,身份证号4 desc")
If dr Is Nothing Then
MessageBox.Show("测试无数据")
Else
MessageBox.Show("测试存在数据")
End If