- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何把各录取年度的最低分调到对应的年度列中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121313)
-- 发布时间：2018/7/3 19:40:00
-- 如何把各录取年度的最低分调到对应的年度列中
同一所院校，不同录取年度的最低分要分别调入到对应录取年度。如：2017年最低分列，2016年最低分列，2015年最低分列。这些数据要来源于本表中的最低分列。这样做便于比对同一所院校不同年度录取的最低分浮动情况。这些数据如何引用过来呢 ？谢谢老师！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:如何把各录取年度的最低分调到对应的年度列中.rar |
-- 发布时间：2018/7/3 20:50:00
--
自己顶一下，老师我是初学，对于老师来说虽然简单，可能不是问题，但对我来说，难死宝宝了
-- 发布时间：2018/7/3 21:45:00
--
哪一个表的数据引用到哪一个表？根据什么数据进行关联取值？手工录入部分最终效果并截图上传看看
[此贴子已经被作者于2018/7/3 21:45:38编辑过]
-- 发布时间：2018/7/4 7:04:00
--
此主题相关图片如下：000.png
上图中把最低分和平均分列中数据按同一所大学，对应文理科，对应录取批次，把不同录取年度的最低分与最高分调入到对应的列（2017最低分，2016最低分与2017平均分、2016平均分列中）。红色箭头所指的，老师能看明白吗 ？只是个示例！要把全部的数据调用。
-- 发布时间：2018/7/4 8:19:00
--
看不明白
-- 发布时间：2018/7/4 8:34:00
--
同一所大学，不同年度、不同文理科，不同批次的最低分显示在同一行对应的列中。唉，说不清楚了！（同一个表中的数据）
-- 发布时间：2018/7/4 8:47:00
--
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
-- 发布时间：2018/7/4 9:37:00
--
执行代码时，非常慢，像死机一样，不过可以得到我想要的结果，有没有快一些的方法？谢谢老师
-- 发布时间：2018/7/4 10:34:00
--
还有一个条件需要加上，就是录取批次，这个条件如何加？谢谢老师
-- 发布时间：2018/7/4 10:46:00
--
以下是引用hbfnmxb在2018/7/4 9:37:00的发言：
执行代码时，非常慢，像死机一样，不过可以得到我想要的结果，有没有快一些的方法？谢谢老师
执行代码时，非常慢，像死机一样，不过可以得到我想要的结果，有没有快一些的方法？谢谢老师
1、你代码写到哪里？写到按钮里面执行，我这里执行你的例子很快的。
2、如果慢，做个慢的实例发上来看看。