| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 查询错误信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194046) |
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 9:03:00 -- 查询错误信息 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 标红的代码应该怎么改？
|
|
| -- 作者：有点蓝 -- 发布时间：2024/11/6 9:04:00 -- select返回的是一个集合：http://www.foxtable.com/webhelp/topics/0400.htm Dim drs As List(Of DataRow) = DataTables("脱贫户监测户信息表").Select(combinedFilter)
|
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 9:09:00 -- 错误提示：If filteredRows.RowCount > 0 Then |
|
| -- 作者：有点蓝 -- 发布时间：2024/11/6 9:13:00 -- 集合的用法参考：http://www.foxtable.com/webhelp/topics/0217.htm 不要创造一些不存在的用法
|
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 9:15:00 -- 请老师指导下上述代码的正确代码，谢谢 |
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 9:23:00 -- 错误提示：If Not DataTable.Columns.Contains("错误信息") Then
[此贴子已经被作者于2024/11/6 11:12:16编辑过]
|
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 9:44:00 -- 在线等 |
|
| -- 作者：有点蓝 -- 发布时间：2024/11/6 10:08:00 -- 不要使用关键字做变量名称 Dim dt As DataTable = DataTables("脱贫户监测户信息表")
|
|
| -- 作者：lrh9537 -- 发布时间：2024/11/6 10:21:00 --
If Not dt .Columns.Contains("错误信息") Then dt .Columns.Add("错误信息", GetType(String)) End If If Not dt.Columns.Contains("错误信息") Then 这里还是不正确
|
|
| -- 作者：有点蓝 -- 发布时间：2024/11/6 10:23:00 -- 参考：http://www.foxtable.com/webhelp/topics/1428.htm |