主题：如何把各录取年度的最低分调到对应的年度列中

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) & "'"
    Dim filter1 As String = "院校代码='" & ary(0) & "' and 文理分科 = '" & ary(1) & "' and 录取年度 = '2017'"
    Dim filter2 As String = "院校代码='" & ary(0) & "' and 文理分科 = '" & ary(1) & "' and 录取年度 = '2016'"
    Dim fdr1 = dt1.find(filter1)
    If fdr1 IsNot Nothing Then
        dt1.ReplaceFor("2017最低分", fdr1("最低分"), filter)
    End If
    Dim fdr2 = dt1.find(filter2)
    If fdr2 IsNot Nothing Then
        dt1.ReplaceFor("2016最低分", fdr2("最低分"), filter)
    End If
   
Next

1、你代码写到哪里？写到按钮里面执行，我这里执行你的例子很快的。

2、如果慢，做个慢的实例发上来看看。

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