老师，我有如下代码，因为记录多较多，运行时间太长，可不可以多线程，异步之类，我实在不懂，可不可以？我这样的代码不知是否适合多线程，老师参否帮改一下代码，我以后也可以慢慢研究
代码如下：For Each r As Row In Tables("未来人才_方案行").Rows
Dim drs As List(Of DataRow)
drs = DataTables("未来人才_专业行").Select("配置名 = '" & r("配置名") & "' And 批次= '" & r("批次") & "' And 所在页码 = '" & r("所在页码") & "' And 院校id= '" & r("院校id") & "' And 专业名称= '" & r("专业名称") & "'") '找出编号为03的产品
'Output.Show(drs.count)
If drs.Count = 1 Then
If r("批次") = "提前批A" Then
drs(0)("学校代号") = r("学校代号")
drs(0)("专业代号") = r("专业代号")
drs(0)("备注") = "ok"
r("备注") = "ok"
Else
drs(0)("学校代号") = r("院校代码")
drs(0)("专业代号") = r("专业代码")
drs(0)("学制") = r("学制")
drs(0)("备注") = "ok"
r("备注") = "ok"
End If
End If
Next
[此贴子已经被作者于2022/10/4 16:07:20编辑过]
加好友 
发短信
Post By：2022/10/4 15:31:00 [只看该作者]
