以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]最大值、次大值,第三大值颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179644)

--  作者:rpg2813
--  发布时间:2022/9/1 13:09:00
--  [求助]最大值、次大值,第三大值颜色
我需要的效果是每科成绩的
第一名,红色
第二名,蓝色
第三名,黄色

图片点击可在新窗口打开查看此主题相关图片如下:0301.gif
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/9/1 13:58:00
--  

select case e.col.name 
case "语文",“数学”
dim m1 as double = e.table.compute("max(" & e.col.name  & ")")
dim m2 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “<” & m1)
dim m3 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “<” & m2)
if e.row(e.col.name) = m1
style = "红色"
elseif e.row(e.col.name) = m2
style = "蓝色"
elseif .....
……

--  作者:rpg2813
--  发布时间:2022/9/1 20:10:00
--  
太棒了,然后依葫芦画瓢没画出来……
就是加个限制条件,只标记及格的,比如数学第一名61分,其余都不及格,那就只标一个红色
select case e.col.name 
case "语文",“数学”
dim m0 as double = 60
dim m1 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “>” & m0)
dim m2 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “<” & m1 and e.col.name & “>” & m0)
dim m3 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “<” & m2 and e.col.name & “>” & m0)
if e.row(e.col.name) = m1
e.style = "红色"
elseif e.row(e.col.name) = m2
e.style = "蓝色"
elseif e.row(e.col.name) = m3
e.style = "黄"
       End If
End Select

--  作者:有点蓝
--  发布时间:2022/9/1 20:51:00
--  
dim m2 as double = e.table.compute("max(" & e.col.name  & ")",e.col.name & “<” & m1 & " and " & e.col.name & “>” & m0)
--  作者:rpg2813
--  发布时间:2022/9/1 21:17:00
--  
感谢版主,我再消化消化