在一个表中有指标单位 发现问题个数_累计 想根据发现问题个数_累计 对对应的指标单位进行排名 当前排名全部是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
Next
Next
[此贴子已经被作者于2023/5/18 12:00:08编辑过]
加好友 
发短信
Post By：2023/5/18 11:58:00 [只看该作者]
