- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于数据标记代码的修改（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15329)
-- 发布时间：2011/12/20 22:02:00
-- [求助]关于数据标记代码的修改（已解决）
一段数据标记的代码，对一至六车间要求值控制在14-16之间，超出给予标记，而七、八两个车间要求控制在39-41之间，此时代码应该如何修改，请各位老师帮助指教，谢谢！！
代码如下：
If e.Col.Name = "津贴比例" Then
If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
If e.Row(e.Col.Name) < 14 Then \'如果该列的值小于14
e.Style = "比例偏低" \'那么用"比例偏低"样式绘制单元格
ElseIf e.Row(e.Col.Name) > 16 Then \'如果单元格的值大于16
e.Style = "比例偏高" \'那么用"比例偏高"样式绘制单元格
End If
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目177.table |
[此贴子已经被作者于2011-12-20 22:15:33编辑过]
-- 发布时间：2011/12/20 22:09:00
--
If e.Col.Name = "津贴比例" Then
If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
Dim v As Double = e.Row("津贴比例")
Select Case e.Row("车间")
Case "一车间","二车间","三车间","四车间","五车间","六车间"
If v < 14 Then
e.Style = "比例偏低"
ElseIf v > 16 Then
e.Style = "比例偏高"
End If
Case "七车间","八车间"
If v < 39 Then
e.Style = "比例偏低"
ElseIf v > 41 Then
e.Style = "比例偏高"
End If
End Select
End If
End If
-- 发布时间：2011/12/20 22:15:00
--
OK了，谢谢狐爸老师。