[求助]报表事件根据excel单元格内容有条件设置单元格格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

BuildDetail事件：

目的是让模板“报告”工作表的第三列根据

显示文本的不同显示不同的背景颜色

无影响=绿色

一般影响=黄色

严重影响=红色

代码如下

Select e.Book.TempLate

    Case "报告模板" '模板名
        Dim sheet As xls.sheet = e.book.sheets("报告") '引用工作表
        Dim Style1 As XLS.Style = e.Book.NewStyle() '定义样式
        Dim Style2 As XLS.Style = e.Book.NewStyle()
        Dim Style3 As XLS.Style = e.Book.NewStyle()
        Style1.BackColor = Color.Red '设置背景颜色
        Style2.BackColor = Color.Yellow
        Style3.BackColor = Color.Green
        Style1.AlignHorz = XLS.AlignHorzEnum.Center '设置对齐方式
        Style1.AlignVert = XLS.AlignVertEnum.Center
        Style2.AlignHorz = XLS.AlignHorzEnum.Center
        Style2.AlignVert = XLS.AlignVertEnum.Center
        Style3.AlignHorz = XLS.AlignHorzEnum.Center
        Style3.AlignVert = XLS.AlignVertEnum.Center
        For i As Integer = 0 To 20
            If Sheet(i,2).text = "无影响" Then
                Sheet(i,2).Style =Style3 '设置单元格样式
            ElseIf Sheet(i,2).text = "一般影响" Then
                Sheet(i,2).Style =Style2 '
            ElseIf Sheet(i,2).text = "严重影响" Then
                Sheet(i,2).style =Style1 '
            End If
        Next

End Select

结果完全没反应，

请问问题出在哪里？

或者有其他办法可以实现根据excel单元格内容有条件设置格式吗？

主题：[求助]报表事件根据excel单元格内容有条件设置单元格格式