这段代码执行时非常慢，有没有优化些方法？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在蓝版主的帮助下，完成了一个小小高考志愿查询筛选程序。在这里选感谢蓝版。有一个按钮代码在程序执行时非常慢，蓝版及各位老师看一下，还有没有化的方法，让其在执行的快一些。选谢谢各位版主及老师了。

选上图，看一下执行时间：

此主题相关图片如下：000.png

代码如下：

e.Form.Controls("Label1").Text = "正在调入各年度最低分平均分及排名,请稍后..."

Application.DoEvents()

Dim timestart,timeend As Date

timestart=Date.now

Dim dt1 As DataTable = DataTables("年度院校提档线")

For Each ary As String() In dt1.GetValues("院校代码|文理分科|录取批次", "院校代码 is not null")

Dim filter As String = "院校代码='" & ary(0) & "' and 文理分科 = '" & ary(1) & "' and 录取批次 = '" & ary(2) & "'"

Dim filter1 As String = filter & " And 录取年度 = '2017'"

Dim filter2 As String = filter & " And 录取年度 = '2016'"

Dim filter3 As String = filter & " And 录取年度 = '2015'"

Dim fdr1 = dt1.find(filter1)

If fdr1 IsNot Nothing Then

dt1.ReplaceFor("乙年最低分", fdr1("最低分"), filter)

dt1.ReplaceFor("乙年平均分", fdr1("平均分"), filter)

dt1.ReplaceFor("乙年最低分排名", fdr1("最低分排名"), filter)

dt1.ReplaceFor("乙年平均分排名", fdr1("平均分排名"), filter)

End If

Dim fdr2 = dt1.find(filter2)

If fdr2 IsNot Nothing Then

dt1.ReplaceFor("丙年最低分", fdr2("最低分"), filter)

dt1.ReplaceFor("丙年平均分", fdr2("平均分"), filter)

dt1.ReplaceFor("丙年最低分排名", fdr2("最低分排名"), filter)

dt1.ReplaceFor("丙年平均分排名", fdr2("平均分排名"), filter)

End If

Dim fdr3 = dt1.find(filter3)

If fdr3 IsNot Nothing Then

dt1.ReplaceFor("丁年最低分", fdr3("最低分"), filter)

dt1.ReplaceFor("丁年平均分", fdr3("平均分"), filter)

dt1.ReplaceFor("丁年最低分排名", fdr3("最低分排名"), filter)

dt1.ReplaceFor("丁年平均分排名", fdr3("平均分排名"), filter)

End If

e.Form.Controls("Label1").Text = "调入完毕."

timeend=Date.now

e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"

Messagebox.Show("调入完毕!")

主题：这段代码执行时非常慢，有没有优化些方法？