以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  连接符不会用，总是报缺少操作数，请老师指点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110034)
--  作者：东风光魔
--  发布时间：2017/11/24 19:41:00
--  连接符不会用，总是报缺少操作数，请老师指点

Dim fls As List(Of String()) = DataTables("拼装类").GetValues("项目名称|分组|性别")
For Each fl As String() In fls
    Dim filter As String = "项目名称 = \'" & fl(0) & "\' and 分组 = \'" & fl(1) & "\' and 性别 = \'" & fl(2) & "\'"
      Dim drs As List(Of DataRow) = DataTables("拼装类").Select("\'" & filter & "\'", "成绩  DESC")
        For n As Integer = 0 To drs.Count - 1 \'遍历所有行
            If n > 0 AndAlso drs(n)("成绩") = drs(n-1)("成绩") Then \'如果总分和上一行相同
                drs(n)("名次") = drs(n-1)("名次") \'则排名等于上一行
            Else
                drs(n)("名次") = n + 1 \'设置排名
            End If
       
    Next
Next
 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171124193742.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2017/11/24 20:21:00
--  
Dim drs As List(Of DataRow) = DataTables("拼装类").Select(filter, "成绩  DESC")
--  作者：东风光魔
--  发布时间：2017/11/24 21:07:00
--  
还是不行，出现致命错误。
--  作者：东风光魔
--  发布时间：2017/11/24 21:09:00
--  
截图限制，今天上传不了。是不是字段类型问题？
--  作者：东风光魔
--  发布时间：2017/11/24 21:15:00
--  
原因找到了，表事件里的测试代码没删除，那个代码也有名次的计算代码，冲突了。谢谢蓝老师。