索引超出范围。必须为非负值并小于集合大小。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "总分值" ' "总分值"
        If dr("总分值") Is Nothing OrElse dr("总分值") = 0 Then
            dr("中标候选人") = Nothing
        Else
            Dim dtts As List(Of DataRow) = e.DataTable.Select("[项目编号] = '" & e.DataRow("项目编号") & "'And [总分值] > 0 " ,"总分值 DESC")
            For Each dtt As DataRow In dtts
                dtt("中标候选人") = Nothing
            Next
            If dtts.Count > 0 Then
                dtts(0)("中标候选人") = "第一中标候选人"
                If dtts.Count > 1 Then
                    dtts(1)("中标候选人") = "第二中标候选人"
                End If
                If dtts.count > 2 Then
                    dtts(2)("中标候选人") = "第三中标候选人"
                End If
            End If
        End If

主题：索引超出范围。必须为非负值并小于集合大小。