主题：两格中填色程式语句怎么写

Select Case e.Col.name

      Case "订料状况"

           If e.Row.Isnull("订料状况" )= False Then

                e.Style = "红色"

           Else     

                e.Style = "绿色" 

           End If           

        Case "加工状况"

           If e.Row.Isnull("加工状况" )= False Then

           End If

End Select