- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 考核排序问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59065)
-- 发布时间：2014/10/29 10:48:00
-- 考核排序问题
有八个管理部门年终要进行绩效考核，并根据综合得分进行排序，要求通过按键自动排出名次,请问按键代码
此主题相关图片如下：截图05.jpg
-- 发布时间：2014/10/29 10:50:00
--
无语，之前做过，这么简单你还不会。你压根就没学过。
-- 发布时间：2014/10/29 10:59:00
--
Tables("表A").Sort = "综合得分 desc"
Dim ps As Double = 0
For i As Integer = 0 To Tables("表A").Rows.count - 1
Dim r As Row = Tables("表A").Rows(i)
If r("综合得分") <> ps Then
r("考核排序") = i + 1
ps = r("综合得分")
Else
r("考核排序") = i
End If
Next
-- 发布时间：2014/10/29 11:00:00
--
甜老师：代码学习还是有点难度，我也在努力学习，也请老师多帮助。