- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 高考成绩的全省排，如何转化为其它年度的高考成绩 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121455)
-- 发布时间：2018/7/6 15:00:00
-- 高考成绩的全省排，如何转化为其它年度的高考成绩
一分一档表有2018年以前年度的高考成绩的排名，2018年的高考成绩600分，理科。2018年这个成绩的排名是23169，这个排名在2017年是多少分？在2016年是多少分。
经过查对，2017年与这个排名最接近的高考成绩是23115名，对应的2017年的高考成绩是567分，就是说，2018年高考理科600分的成绩相当于2017年567分的理科成绩。
同样，与2016年的23091这个名次最接近，因此相当于2016年597分。
老师，根据2018年高考成绩的最低分排名，转化为其它年度的高考成绩，这个公式如何写？谢谢老师！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求助高考排名转化各年高考成绩.rar |
-- 发布时间：2018/7/6 15:22:00
--
1、
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求助高考排名转化当年高考成绩.table |
2、
Dim dt1 As DataTable = DataTables("考生信息")
Dim dt2 As DataTable = DataTables("一分一档")
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "文理分科 = \'" & dr("文理分科") & "\' and 录取年度 = \'2017\' and [2017年排名] <= " & dr("全省排名")
Dim fdr = dt2.find(filter, "2017年排名 desc")
If fdr IsNot Nothing Then
dr("排名折合往年高考成绩_2017年") = fdr("最低分")
End If
filter = "文理分科 = \'" & dr("文理分科") & "\' and 录取年度 = \'2016\' and [2016年排名] <= " & dr("全省排名")
fdr = dt2.find(filter, "2016年排名 desc")
If fdr IsNot Nothing Then
dr("排名折合往年高考成绩_2016年") = fdr("最低分")
End If
Next
-- 发布时间：2018/7/6 16:24:00
--
老师在我这个表中执行的时候，怎么出现这个错误？在你上传的附件中执行就没有这个问题，这是什么原因？图如下：
此主题相关图片如下：22.png
-- 发布时间：2018/7/6 17:43:00
--
看2楼的项目；你要把列【2017年排名】等改成整数类型
http://www.foxtable.com/webhelp/scr/0036.htm