- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自定义样式问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106184)
-- 发布时间：2017/9/4 10:59:00
-- 自定义样式问题
如果应急预案的备案编号列和职业卫生检测报告列、持证安全管理人数列的数据同时为空值时则为D级，自定义样式显示红色，如果同时不为空则为A 级 ，自定义样式显示为绿色，代码如何写？
If e.Col.Name = "评级" Then
If e.Row.IsNull("评级") = False
If e.Row("评级") ="A级" Then
e.Style = "A级"
End If
End If
End If
.png)
-- 发布时间：2017/9/4 11:03:00
--
If e.Row.IsNull("备案编号") AndAlso e.Row.IsNull("职业卫生检测报告") AndAlso e.Row.IsNull("持证安全管理人数") Then
e.Style = "D级"
ElseIf e.Row.IsNull("备案编号")=false AndAlso e.Row.IsNull("职业卫生检测报告")=false AndAlso e.Row.IsNull("持证安全管理人数")=False Then
e.Style = "A级"
End If
-- 发布时间：2017/9/7 11:18:00
--
狐爸，
如果应急预案的备案编号列和职业卫生检测报告列、持证安全管理人数列、排污许可证列中的四列数据有三项以上为空值时则为D级，自定义样式显示红色，如果同时不为空则为A 级 ，自定义样式显示为绿色，如果四列中的数据有两项为空值则为C级，显示黄色，四列数据中如果只有一项为空值为B级，显示橙色，另外，如果备注列出现在建/未投入生产字眼时，显示为E级，颜色为蓝色，代码又该如何写？ |
-- 发布时间：2017/9/7 11:52:00
--
Dim cs As String() = {"备案编号", "职业卫生检测报告","持证安全管理人数列","排污许可证"}
Dim count As Integer = 0
For Each c As String In cs
If e.Row.isnull(c) Then
count += 1
End If
Next
If count = 0 Then
e.style = "A"
ElseIf count = 1 Then
e.style = "B"
ElseIf count= 2 Then
e.style = "c"
Else
e.style = "D"
End If
If e.Row("备注").contains("在建/未投入生产") Then
e.style = "E"
End If
-- 发布时间：2017/9/8 9:07:00
--
问题已解决，谢谢狐爸。