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

同一所院校，不同录取年度的最低分要分别调入到对应录取年度。如：2017年最低分列，2016年最低分列，2015年最低分列。这些数据要来源于本表中的最低分列。这样做便于比对同一所院校不同年度录取的最低分浮动情况。这些数据如何引用过来呢 ？谢谢老师！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如何把各录取年度的最低分调到对应的年度列中.rar

自己顶一下，老师我是初学，对于老师来说虽然简单，可能不是问题，但对我来说，难死宝宝了

哪一个表的数据引用到哪一个表？根据什么数据进行关联取值？手工录入部分最终效果并截图上传看看

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

看不明白

同一所大学，不同年度、不同文理科，不同批次的最低分显示在同一行对应的列中。唉，说不清楚了！（同一个表中的数据）

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、如果慢，做个慢的实例发上来看看。