在一个表中有指标单位发现问题个数_累计想根据发现问题个数_累计对对应的指标单位进行排名当前排名全部是1 怎么修正呢？

麻烦各位老师帮忙看看谢谢！

此主题相关图片如下：123.png

当前代码如下：

……

Dim nms() As String = e.values("所属单位").Split(",")

For Each nm As String In nms

cmd.CommandText ="Se lect * From {主要指标一览表}"

dt1 = cmd.ExecuteReader(True)

Dim drs As List(Of DataRow) = dt1.Se lect("[指标单位] = '"& nm &"'" , "监督发现问题个数_累计 DESC")

For n As Integer = 0 To drs.Count - 1 '遍历所有行

output.show(drs.Count)

If n > 0 AndAlso drs(n)("监督发现问题个数_累计") = drs(n-1)("监督发现问题个数_累计") Then '如果总分和上一行相同

drs(n)("监督发现问题个数_排名") = drs(n-1)("监督发现问题个数_排名") '则排名等于上一行

Else

drs(n)("监督发现问题个数_排名") = n + 1 '设置排名

End If

dt1.save

[此贴子已经被作者于2023/5/18 12:00:08编辑过]

主题：在一个表中有指标单位 发现问题个数_累计 想根据发现问题个数_累计 对对应的指标单位进行排名 当前排名全部是1 怎么修正呢？