以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助！DrawCell事件问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171469)
--  作者：xnsiwei
--  发布时间：2021/8/31 11:54:00
--  求助！DrawCell事件问题
If e.Col.Name = "ph值" Then \'如果是分组行的数量列
    If e.Row("ph值") <= 9 And e.Row("ph值") >=6 Then
        e.Style = "1类"
    ElseIf e.Row("ph值") > 9 Or e.Row("ph值") < 6 And e.Row("ph值") > 0.001 Then
        e.Style = "5类"
    End If
End If
If e.Col.Name = "溶解氧" Then \'如果是分组行的数量列
    If e.Row("溶解氧") < 100 And e.Row("溶解氧") >=7.5 Then
        e.Style = "1类"
    ElseIf e.Row("溶解氧") >= 6  And e.Row("溶解氧") < 7.5 Then
        e.Style = "2类"
    ElseIf e.Row("溶解氧") >= 5  And e.Row("溶解氧") < 6 Then
        e.Style = "3类"
    ElseIf e.Row("溶解氧") >= 3  And e.Row("溶解氧") < 5 Then
        e.Style = "4类"
    ElseIf e.Row("溶解氧") >= 2  And e.Row("溶解氧") < 3 Then
        e.Style = "5类"
    ElseIf e.Row("溶解氧") >= 0.001  And e.Row("溶解氧") < 2 Then
        e.Style = "劣5类"
    End If
End If
If e.Col.Name = "高猛酸盐指数" Then \'如果是分组行的数量列
    If e.Row("高猛酸盐指数") > 0.001 And e.Row("高猛酸盐指数") <= 2 Then
        e.Style = "1类"
    ElseIf e.Row("高猛酸盐指数") > 2  And e.Row("高猛酸盐指数") < = 4 Then
        e.Style = "2类"
    ElseIf e.Row("高猛酸盐指数") > 4  And e.Row("高猛酸盐指数") < = 6 Then
        e.Style = "3类"
    ElseIf e.Row("高猛酸盐指数") > 6  And e.Row("高猛酸盐指数") < = 10 Then
        e.Style = "4类"
    ElseIf e.Row("高猛酸盐指数") > 10  And e.Row("高猛酸盐指数") <= 15 Then
        e.Style = "5类"
    ElseIf e.Row("高猛酸盐指数") > 15  Then
        e.Style = "劣5类"
    End If
End If

“ph值 ”列、“溶解氧” 列可以正常按颜色显示，但 “高猛酸盐指数”列无反应？求助！
--  作者：chnfo
--  发布时间：2021/8/31 12:14:00
--  
select case e.col.name
       case "高锰酸盐指数"  \'----汉字输错啦
           select case e.row(e.col.name)
               case <= 0.001
                   e.style = "0类"   
               case <=2 
                   e.style = "1类"   
               case <=4
                   e.style = "2类"   
               case <=……
                   e.style = "……类"   
               case else
                   e.style = "劣5类"
       end select
end select   
--  作者：有点蓝
--  发布时间：2021/8/31 13:37:00
--  
代码没有问题，上传实例看看
--  作者：xnsiwei
--  发布时间：2021/8/31 16:55:00
--  
确实汉字打错了，解决，谢谢！！！