主题：[求助]根据百分比值判断进行单元格绘制颜色

 

根据百分比值判断进行单元格绘制颜色，下面代码报错，求助：

 

If e.Col.name = "审图工作日" Then

    Dim dr As DataRow

    If dr.IsNull("审图工作日") = False And dr.IsNull("出图工作日") = False  Then

        Dim q As Integer = e.Row("审图工作日") * e.Row("出图工作日")

        If q > 0.5 Then

            e.Style = "样式1"

        End If

    End If

End If

 

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:根据百分比值判断进行单元格绘制颜色.table

大师，只要大于0.5的红色，怎么改呢？

 

上楼代码的效果

 

此主题相关图片如下：都红色，不满足大于0.5的条件.png

只要大于0.5的红色  什么个意思？

还有点问题，移动到下楼了

e.Row("审图工作日") * e.Row("出图工作日")  这个“*”表示两者相乘，怎么又变成除了，晕菜。到底是什么个意思？

说明举例

大师，是要除号，大于0.5一半的才绘制单元格 

可以了，多谢了

 大师，下面代码为什么不执行 特急  急 单元格绘制呢？
只执行 标记色1 呢？

'',审图工作日,变色
If e.Col.name = "审图工作日" Then
    If e.Row.IsNull("审图工作日") = False AndAlso  e.Row("审图工作日") > 5 AndAlso  e.Row.IsNull("出图工作日") = False  Then '超过12个工作日也特急颜色
        Dim q As Integer = e.Row("审图工作日") / e.Row("出图工作日")
        If q >= 1 Then
            e.Style = "特急"
        End If
        If 0.75 < q  < 1 Then
            e.Style = "急"
        End If
       If 0.55 < q  < 0.75 Then
            e.Style = "标记色1"
        End If
    End If
End If

1、你添加了样式了没有？

 

2、你计算得到的值是多少？你可以加入代码 e.text = q 显示和测试

按上楼测试，还是有问题，辛苦看看了

 

此主题相关图片如下：报错.png

 

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2.table