去掉循环，直接使用不就行了
……
Dim d As Date = Date.Now
Dim cmd As New SQLCommand
Dim dt2 As DataTable
cmd.ConnectionName = "shujuyuan"
' 去掉循环 For Each r As DataRow In dt.DataRows
Dim errorCount As Integer = 0
' 查询条件1
cmd.CommandText = "SELECT top 1 * from {脱贫户监测户信息表} as a where 工资性收入 > 0 and 劳动技能 in('普通劳动力', '技能劳动力','弱劳动力或半劳动力') and not exists(select * from {脱贫户监测户信息表} as b where a.户编号=b.户编号 and 务工所在地 is not null)"
dt2 = cmd.ExecuteReader()
Dim tp As TimeSpan = Date.Now - d
Output.Show(tp.TotalSeconds)
Output.Show("Count=" & dt2.DataRows.Count)
d = Date.Now
' 错误信息1
If dt2.DataRows.Count > 0 Then
dt.LoadFilter = "证件号码 in (select 证件号码 from {脱贫户监测户信息表} as a where 工资性收入 > 0 and 劳动技能 in('普通劳动力', '技能劳动力','弱劳动力或半劳动力') and not exists(select * from {脱贫户监测户信息表} as b where a.户编号=b.户编号 and 务工所在地 is not null))"
dt.Load()
dt.ReplaceFor("错误信息1", "脱贫户和监测户有工资性收入，但家庭成员无务工监测信息")
dt.save
errorCount += dt2.DataRows.Count
End If
……错误信息2 参考错误信息1 改
[此贴子已经被作者于2024/12/4 12:05:17编辑过]
加好友 
发短信
Post By：2024/12/4 9:41:00 [只看该作者]
