多个身份证号 字段列 怎么实现一句代码写法呢？
实现身份证号 身份证1.2.3.4.5 都来匹配e.PostValues("身份证号")的值
比如身份证号2=522725 那么就先从身份证号 身份证号1 进行匹配 无值 然后身份证号2 执行操作
dim d1122 As DataRow = DataTables("人员登记").sql find("身份证号='" & e.Post Values("身份证号") & "'")
Dim d1 As DataRow = DataTables("人员登记").sq lfind("身份证号1='" & e.Post Values("身份证号") & "'")
Dim d2 As DataRow = DataTables("人员登记").sq lfind("身份证号2='" & e.Post Values("身份证号") & "'")
Dim d3 As DataRow = DataTables("人员登记").sq lfind("身份证号3='" & e.Post Values("身份证号") & "'")
Dim d4 As DataRow = DataTables("人员登记").sql find("身份证号4='" & e.Post Values("身份证号") & "'")
Dim d5 As DataRow = DataTables("人员登记").sql find("身份证号5='" & e.PostV alues("身份证号") & "'")
当前代码如下：运行后页面为空 麻烦老师知道下
Dim d1122 As DataRow = DataTables("人员登记").sql find("身份证号='" & e.Post Values("身份证号") & "'")
Dim d1 As DataRow = DataTables("人员登记").sql find("身份证号1='" & e.Pos tValues("身份证号") & "'")
Dim d2 As DataRow = DataTables("人员登记").sqlfind("身份证号2='" & e.Post Values("身份证号") & "'")
Dim d3 As DataRow = DataTables("人员登记").sqlf ind("身份证号3='" & e.Post Values("身份证号") & "'")
Dim d4 As DataRow = DataTables("人员登记").sqlf ind("身份证号4='" & e.Pos tValues("身份证号") & "'")
Dim d5 As DataRow = DataTables("人员登记").sqlf ind("身份证号5='" & e.Pos tValues("身份证号") & "'")
If d1122 Is Nothing Then
If d1 Is Nothing Then
If d2 Is Nothing Then
If d3 Is Nothing Then
If d4 Is Nothing Then
If d5 Is Nothing Then
MessageBox.Show("测试无数据")
Else
MessageBox.Show("测试存在数据")
End If
End If
End If
End If
End If
End If
[此贴子已经被作者于2020/2/21 21:27:58编辑过]
加好友 
发短信
Post By：2020/2/21 21:14:00 [显示全部帖子]
