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

我现在有各OA模块，分“审核”“批准”“终审”“裁决”等四项，我想达到的效果就是，如果在首列单列一列，能随时知道看到该文件在哪个阶段？？

 

该如何设置？

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

也就是说，在增加一个首列，显示“已审核”“已批准”等，事项

 

如果文件已审核，则第一列显示已审核，

如果文件已批准，则第一列显示已批准。

老师具体代码怎么样写？？我不太会额

这个，是没有判断的额？？只是对标签进行相关美化吧？？？？

老师，怎么样从最后一步开始判断~~~能否简单也个代码给我看看~~

老师我将你的代码改了一下

就是

DrawCell：

 

If e.Col.Name = "状态" Then
    e.StartDraw
    If e.Row.isnull("裁决")=False Then
        e.text = "已裁决"
    Else If e.Row .isnull("终审")=False Then
        e.text = "已终审"
    Else If e.Row.isnull("批准") =False Then
        e.text = "已批准"
    Else If e.Row.Isnull("审核") = False Then
        e.text = "已审核"
    Else
        e.text = "已提报"
    End If
    e.EndDraw
End If

 

If e.Col.Name = "状态" Or e.Col.Name = "审核" Or e.Col.Name = "批准" Or e.Col.Name = "终审" Or e.Col.Name = "裁决" Then
    e.StartDraw()
    Dim msg As String
    Dim tl As Integer = e.Text.Length
    Select Case tl
        Case 2
            msg = "  " & e.Text & "  "
        Case 3
            msg = " " & e.Text & " "
        Case Else
            msg = e.Text
    End Select
    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截图20140509140250578.jpg

全局代码我没有设置相关代码的..因为没有用到图片。。

老师，为什么会显示错误呢？？
此主题相关图片如下：360截图20140509174531875.jpg

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

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

 

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