主题：这个排名如何完成

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("录取数")

        dr("最高分") = fdr("最高分")

        dr("最低分") = fdr("最低分")

    End If

Next

这个按钮事件，完成录取数，最高分与最低分的同时导入。谢谢老师看一下图：
此主题相关图片如下：00.png

老师：现在有这样一个问题，我想用一个按钮同时给最低分和平均分（平均分取整列）排名，如何把这两个合在一起，代码如下：

1最低分排名：

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

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 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分取整") & "'"

    Dim fdr = dt2.find(filter)

    If fdr IsNot Nothing Then

        dr("平均分排名") = fdr("全省排名")

    End If

Next

这两个事件如何合并在一起用一个按钮来完成？谢谢老师！！