以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  绘制的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81388)
--  作者：sf020cf
--  发布时间：2016/2/26 14:25:00
--  绘制的问题

现有车型一列,导入时类型为4.2/4.5/6.8/转换后为4M2/4M5/6M8

我想用绘制的方法醒目的提醒这一列要转换,条件是如果为空或者不为"数字M数字"或者"数字M"用红颜色绘制.

If e.Col.Name = "车型" Then
        For Each s As String In "车型"
        If e.Row.IsNull or 这里怎么写 Then
            e.Style = "车型不对"
            Exit For
        End If
    Next
End If
--  作者：大红袍
--  发布时间：2016/2/26 14:31:00
--  
If e.Col.Name = "车型" Then
    If e.text = "" Then
        e.Style = "车型不对"
    Else
        For Each s As String In e.text.split("/")
            If s Like "*M*" = False Then
                e.Style = "车型不对"
                Exit For
            End If
        Next
    End If
End If