- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据百分比值判断进行单元格绘制颜色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128663)
-- 发布时间：2018/12/12 15:32:00
-- [求助]根据百分比值判断进行单元格绘制颜色
根据百分比值判断进行单元格绘制颜色，下面代码报错，求助：
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 |
-- 发布时间：2018/12/12 15:35:00
--
If e.Col.name = "审图工作日" Then
If e.Row.IsNull("审图工作日") = False AndAlso e.Row.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/12/12 16:39:00
-- 回复：（y2287958）If e.Col.name = "审图工作日" The...
大师，只要大于0.5的红色，怎么改呢？
上楼代码的效果
此主题相关图片如下：都红色，不满足大于0.5的条件.png
-- 发布时间：2018/12/12 16:53:00
--
只要大于0.5的红色 什么个意思？
-- 发布时间：2018/12/12 17:01:00
-- 回复：（y2287958）只要大于0.5的红色? 什么个意...
还有点问题，移动到下楼了
[此贴子已经被作者于2018/12/12 17:49:22编辑过]
-- 发布时间：2018/12/12 17:04:00
--
e.Row("审图工作日") * e.Row("出图工作日") 这个“*”表示两者相乘，怎么又变成除了，晕菜。到底是什么个意思？ |
[此贴子已经被作者于2018/12/12 17:04:08编辑过]
-- 发布时间：2018/12/12 17:49:00
-- 回复：（y2287958）e.Row("审图工作日") * e.Row("出图...
大师，是要除号，大于0.5一半的才绘制单元格
可以了，多谢了
[此贴子已经被作者于2018/12/12 18:04:06编辑过]
-- 发布时间：2018/12/13 11:01:00
-- 回复：（y2287958）e.Row("审图工作日") * e.Row("出图...
大师，下面代码为什么不执行 特急 急 单元格绘制呢？
只执行 标记色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
[此贴子已经被作者于2018/12/13 11:04:24编辑过]
-- 发布时间：2018/12/13 11:17:00
--
1、你添加了样式了没有？
2、你计算得到的值是多少？你可以加入代码 e.text = q 显示和测试
-- 发布时间：2018/12/13 11:29:00
-- 回复：（有点甜）1、你添加了样式了没有？ 2...
按上楼测试，还是有问题，辛苦看看了
此主题相关图片如下：报错.png
加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:2.table |