主题：高考成绩的全省排，如何转化为其它年度的高考成绩

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

看2楼的项目；你要把列【2017年排名】等改成整数类型

http://www.foxtable.com/webhelp/scr/0036.htm