Dim filter1 As String = "残疾证号校验 = True"
Dim filter2 As String = "身份证号校验 = True"
' 合并过滤条件
Dim combinedFilter As String = filter1 & " OR " & filter2
' 检索匹配行
Dim filteredRows As DataTable = DataTables("脱贫户监测户信息表").Select(combinedFilter)
' 检查是否有符合条件的行
If filteredRows.RowCount > 0 Then
' 添加列并标记错误
If Not filteredRows.Columns.Contains("错误信息") Then
filteredRows.Columns.Add("错误信息", GetType(String))
End If
' 为匹配行添加错误信息
For Each Row As DataRow In filteredRows.Rows
If Row.Field(Of Boolean)("残疾证号校验") Then
Row("错误信息") = "残疾证号有误"
ElseIf Row.Field(Of Boolean)("身份证号校验") Then
Row("错误信息") = "身份证号有误"
End If
Next
Else
MessageBox.Show("没有符合条件的数据")
End If
标红的代码应该怎么改？
select返回的是一个集合：
http://www.foxtable.com/webhelp/topics/0400.htm
Dim drs As List(Of DataRow) = DataTables("脱贫户监测户信息表").Select(combinedFilter)
错误提示：If Not DataTable.Columns.Contains("错误信息") Then
[此贴子已经被作者于2024/11/6 11:12:16编辑过]
不要使用关键字做变量名称
Dim dt As DataTable = DataTables("脱贫户监测户信息表")
Dim dt As DataTable = DataTables("脱贫户监测户信息表")
|
If Not dt .Columns.Contains("错误信息") Then
dt .Columns.Add("错误信息", GetType(String))
End If
If Not dt.Columns.Contains("错误信息") Then 这里还是不正确