以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  select  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185489)

--  作者：飞123 --  发布时间：2023/2/25 15:41:00 --  select Dim bjs() As Integer = {1, 2} For Each bj As Integer In bjs     Dim drs As List(Of DataRow) = DataTables("成绩表").Select ("班级=" & bj, "总分 desc")     For i As Integer = 0 To drs.Count - 1         If i = 0 Then             drs(i)("总分排名") = 1             ElseIf drs(i)("总分") = drs(i - 1)("总分") Then                 drs(i)("总分排名") = drs(i - 1)("总分排名")             Else                 drs(i)("总分排名") = i + 1         End If      Next  Next  总分和总分排名都不对

--  作者：有点蓝 --  发布时间：2023/2/25 15:56:00 --   请上传实例说明