Dim filter1 As String = "残疾证号校验 = True"
Dim filter2 As String = "不符合校验规则 = True"
Dim filter3 As String = "len(证件号码) <> 15 And len(证件号码) <> 18 And len(证件号码) <> 20 And len(证件号码) <>22"
Dim filter4 As String = "len(证件号码) = 15"
Dim filter5 As String = "身份证号 Is null"
' 合并过滤条件
Dim combinedFilter As String = filter1 & " OR " & filter2 & " OR " & filter3 & " OR " & filter4 & " OR " & filter5
' 检索匹配行
Dim drs As List(Of DataRow) = DataTables("脱贫户监测户信息表").Select(combinedFilter).ToList()
' 检查是否有符合条件的行
If drs.Count > 0 Then
' 添加列并标记错误
Dim dt As DataTable = DataTables("脱贫户监测户信息表")
If Not dt.DataCols.Contains("错误信息") Then
dt.DataCols.Add("错误信息", GetType(String))
End If
' 为匹配行添加错误信息
For Each Row As DataRow In drs
If 符合第一个条件 Then
Row("错误信息") = "残疾证号校验错误"
ElseIf 符合第二个条件 Then
Row("错误信息") = "身份证号校验错误"
ElseIf 符合第三个条件Then
Row("错误信息") = "证件号码倍数异常"
ElseIf 符合第四个条件 Then
Row("错误信息") = "证件号码15位"
ElseIf 符合第五个条件 Then
Row("错误信息") = "无身份证号"
End If
Next
Else
MessageBox.Show("没有符合条件的数据")
End If
“符合某个条件”这里怎么整？
加好友 
发短信
Post By：2024/11/6 9:03:00 [显示全部帖子]
