主题：[求助]有点甜等高手老师们，这个分数怎么得出！

Dim v1 = e.form.controls("TextBox3").text

Dim fdr As DataRow = DataTables("表A").find("分数 = '" & v1 & "'")

If fdr IsNot Nothing Then

    msgbox(fdr("排名"))

    Dim dr As DataRow = DataTables("表A").find("去年排名 <= " & fdr("排名") & "", "去年排名 desc")

    msgbox(dr("去年分数"))

    Dim dr2 As DataRow = DataTables("表A").find("去年排名 >= " & fdr("排名") & "", "去年排名")

    msgbox(dr2("去年分数"))

End If