以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  索引超出范围。必须为非负值并小于集合大小。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102380)

--  作者：有点色 --  发布时间：2017/6/18 23:36:00 --               If dtts.Count > 0 Then                 dtts(0)("中标候选人") = "第一中标候选人"                 If dtts.Count > 2 Then                     dtts(1)("中标候选人") = "第二中标候选人"                     dtts(2)("中标候选人") = "第三中标候选人"                 End If             End If

--  作者：有点色 --  发布时间：2017/6/19 9:04:00 --    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