主题：关于OA如果完成审批，显示审批图标！！

兄弟，具体怎么样，帮我修正一下

有点甜在19楼已经做好了啊。

老师请问，为什么这段代码，已结案列不是绿色的，究竟是哪里错误了~~

 

If e.Col.Name = "状态" Then
    Dim msg As String
    Dim tl As Integer
    If e.Col.Name = "状态" Then
        If e.Row.isnull("裁决")=False Then
            msg  = "已结案"
        Else If e.Row .isnull("终审")=False Then
            msg = "待裁决"
        Else If e.Row.isnull("批准") =False Then
            msg  = "待终审"
        Else If e.Row.Isnull("审核") = False Then
            msg  = "待批准"
        Else
            msg  = "待审核"
        End If
    Else
        tl = e.Text.Length
        Select Case tl
            Case 2
                msg = "  " & e.Text & "  "
            Case 3
                msg = " " & e.Text & " "
            Case Else
                msg = e.Text
        End Select
    End If
    e.StartDraw()
   
    If msg = "" Then Return
    If tl <= 4 Then
        e.Col.Width = 61
    Else
        e.Col.width = tl*15+1
    End If
   
    Dim w As Integer = e.Width - 4
    Dim h As Integer = e.Height - 4
    Dim x As Integer = e.x + (e.Width - w)/2
    Dim n As Pen
    Dim fnt As New Font("宋体",9,FontStyle.Bold)
    Dim br As Brush
   
    If e.Text.Contains("已") Then
        n = New Pen(Color.Green,2)
        br = New SolidBrush(color.Green)
    Else
        n = New Pen(Color.Red,2)
        br = New SolidBrush(color.red)
    End If
   
    e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)
    e.Graphics.DrawString(msg,fnt,br,x + 1,e.y + 4)
    e.Text = ""
    e.EndDraw()
End If

此主题相关图片如下：360截图20140509190755750.jpg

我的意思是，有各已字的字体应该是绿色的，为什么全部统一都是红色

 

老师在吗？？帮我看看帖子哪里出错了~