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("2017最低分", fdr1("最低分"), filter) dt1.ReplaceFor("2017平均分", fdr1("平均分"), filter) dt1.ReplaceFor("2017最低分排名", fdr1("最低分排名"), filter) dt1.ReplaceFor("2017平均分排名", fdr1("平均分排名"), filter) End If Dim fdr2 = dt1.find(filter2) If fdr2 IsNot Nothing Then dt1.ReplaceFor("2016最低分", fdr2("最低分"), filter) dt1.ReplaceFor("2016平均分", fdr2("平均分"), filter) dt1.ReplaceFor("2016最低分排名", fdr2("最低分排名"), filter) dt1.ReplaceFor("2016平均分排名", fdr2("平均分排名"), filter) End If Dim fdr3 = dt1.find(filter3) If fdr3 IsNot Nothing Then dt1.ReplaceFor("2015最低分", fdr3("最低分"), filter) dt1.ReplaceFor("2015平均分", fdr3("平均分"), filter) dt1.ReplaceFor("2015最低分排名", fdr3("最低分排名"), filter) dt1.ReplaceFor("2015平均分排名", fdr3("平均分排名"), filter) End If Next
|