主题：在处理3万行数据时程序无响应，求解决办法

考虑使用sql吧

表结构和数据都是怎么样的？具体要做什么功能，使用文字说明一下

怎么知道哪个是脱贫户还是监测户？怎么知道有工资性收入？怎么判断是家庭成员？怎么判断无务工监测信息？

如“脱贫户和监测户有工资性收入，但家庭成员无务工监测信息”

Dim errorCols As New List(Of String) From {"错误信息1", "错误信息2", "错误信息3", "错误信息4", "错误信息5", "错误信息6", "错误信息7"}

Dim dt As DataTable = DataTables("脱贫户监测户信息表")

For Each colName As String In errorCols

    If dt.DataCols.Contains(colName)=false Then 

        dt.DataCols.Add(colName, GetType(String), 255) 

    End If

Next

Dim cmd As New SQLCommand
'cmd.ConnectionName = "数据源名称"
Dim dt2 As DataTable
cmd.CommandText = "select * from {脱贫户监测户信息表} as a where (户类型='脱贫户' or  监测对象类别='监测户') and 工资性收入 > 0 and not exists(select * from {脱贫户监测户信息表} as b where a.户编号=b.户编号 and 务工所在地 is not null)"
dt2 = cmd.ExecuteReader()

dim dr as datarow

for each mr as datarow in dt2.datarows

dr = dt.find("证件号码='" & mr("证件号码") & "'")

if dr isnot nothing then

dr("错误信息1") = "脱贫户和监测户有工资性收入，但家庭成员无务工监测信息" 

end if

next

没有办法使用异步。请上传实例测试

新建一个项目，导入这3W行数据，把项目文件压缩后发上来

分卷压缩

这种是数据库的性能问题。改为SqlServer数据库，下面代码只需要0.3秒