- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 在一个表中有指标单位 发现问题个数_累计 想根据发现问题个数_累计 对对应的指标单位进行排名 当前排名全部是1 怎么修正呢？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=186664)
-- 发布时间：2023/5/18 11:58:00
-- 在一个表中有指标单位 发现问题个数_累计 想根据发现问题个数_累计 对对应的指标单位进行排名 当前排名全部是1 怎么修正呢？
在一个表中有指标单位 发现问题个数_累计 想根据发现问题个数_累计 对对应的指标单位进行排名 当前排名全部是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编辑过]
-- 发布时间：2023/5/18 13:28:00
--
表格有没有重复的指标单位？还是一个指标单位有多个问题的数量？