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
Next
e.Form.Controls("Label1").Text = "调入完毕."
timeend=Date.now
e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"
Messagebox.Show("调入完毕!")
加好友 
发短信
Post By：2018/7/8 21:00:00 [只看该作者]
此主题相关图片如下：000.png
