高考成绩的全省排，如何转化为其它年度的高考成绩 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 高考成绩的全省排，如何转化为其它年度的高考成绩

共有1678人关注过本帖树形打印复制链接主题：高考成绩的全省排，如何转化为其它年度的高考成绩

hbfnmxb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：538 积分：6035 威望：0 精华：0 注册：2008/9/7 20:15:00

高考成绩的全省排，如何转化为其它年度的高考成绩 发帖心情

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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