这个排名如何完成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个排名如何完成

共有2690人关注过本帖树形打印复制链接主题：这个排名如何完成

hbfnmxb

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

加好友

发短信

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

这个排名如何完成 发帖心情

Post By：2018/7/1 10:02:00 [只看该作者]

年度院校提档线中的“最低分排名”列的排名来源于一分一档表的“全省排名”，如何把一分一档表中最低分的排名，按录取年度、文科理科（文理分科）对应填写到年度院校提档线表中“最低分排名”列中。谢谢老师。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:排名问题.rar

hbfnmxb

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

加好友

发短信

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

Post By：2018/7/1 11:19:00 [只看该作者]

别沉下去，自己顶一下

hbfnmxb

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

加好友

发短信

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

Post By：2018/7/1 16:40:00 [只看该作者]

自己顶一下

有点甜

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

加好友

发短信

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

Post By：2018/7/1 17:03:00 [只看该作者]

Dim dt1 As DataTable = DataTables("年度院校提档线")
Dim dt2 As DataTable = DataTables("一分一档")
For Each dr As DataRow In dt1.Select("")
    Dim filter As String = "文理分科 = '" & dr("文理分科") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"
    Dim fdr = dt2.find(filter)
    If fdr IsNot Nothing Then
        dr("最低分排名") = fdr("全省排名")
    End If
Next