主题：[求助]如何实现年级排名与班级排名公式

If e.DataCol.Name = "学号" Then

    Dim nms() As String = {"数学客观","英语客观","物理客观","化学客观"}

    If e.NewValue Is Nothing Then

        For Each nm As String In nms

            e.DataRow(nm) = Nothing

        Next

    Else

        Dim dr As DataRow

        dr = DataTables("客观题").Find("[学号] = '" & e.NewValue & "'")

        If dr IsNot Nothing

            For Each nm As String In nms

                e.DataRow(nm) = dr(nm)

            Next

        End If

    End If

End If

 想做成一个按钮。如何改？谢谢老师

If r isnot nothing Then

    Dim nms() As String = {"数学客观","英语客观","物理客观","化学客观"}

    If e.NewValue Is Nothing Then

        For Each nm As String In nms

            e.DataRow(nm) = Nothing

        Next

    Else

        Dim dr As DataRow

        dr = DataTables("客观题").Find("[学号] = '" & r("学号") & "'")

        If dr IsNot Nothing

            For Each nm As String In nms

                r(nm) = dr(nm)

            Next

        End If

    End If

End If

If r isnot nothing Then

    Dim nms() As String = {"数学客观","英语客观","物理客观","化学客观"}

    If r.isnull("学号") Then

        For Each nm As String In nms

            r(nm) = Nothing

        Next

    Else

        Dim dr As DataRow

        dr = DataTables("客观题").Find("[学号] = '" & r("学号") & "'")

        If dr IsNot Nothing

            For Each nm As String In nms

                r(nm) = dr(nm)

            Next

        End If

    End If

End If