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

if e.row.isnull("最后一步")=false then

 还是给你写吧。

 

全局代码 http://www.foxtable.com/help/topics/1842.htm

 

Public delimg1 As Image = GetImage("delete1.ico")
Public delimg2 As Image = GetImage("delete2.ico")
Public delimg3 As Image = GetImage("delete3.ico")
Public delimg4 As Image = GetImage("delete4.ico")
Public delimg5 As Image = GetImage("delete5.ico")

 

 

Drawcell事件

 

If e.Col.Name = "状态图标列" Then
    e.StartDraw
    If e.Row.isnull("裁决")=False Then
        e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3)
    Else If e.Row .isnull("终审")=False Then
        e.Graphics.DrawImage(delimg2, e.x + 3,e.y + 3)
    Else If e.Row.isnull("批准") =False Then
        e.Graphics.DrawImage(delimg3, e.x + 3,e.y + 3)
    Else If e.Row.Isnull("审核") = False Then
        e.Graphics.DrawImage(delimg4, e.x + 3,e.y + 3)
    Else
        e.Graphics.DrawImage(delimg5, e.x + 3,e.y + 3)
    End If
    e.EndDraw
End If

增加一个状态列

然后在表的DataColChanged事件写类似的代码

其他流程类是

If e.DataCol.Name = "审核" AndAlso e.NewValue <> "" Then
    e.DataRow("状态") = "审核"
End If

Select e.Col.Name
    Case "标记"
        For Each s As String In "裁决|终审|批准|审核".Split("|")
            If e.Row(s) = True Then
                e.Text = "已" & s
                Exit For
            End If
        Next
End Select

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

就是

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

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

你换成这样试试

 

If e.Col.Name = "状态" Or e.Col.Name = "审核" Or e.Col.Name = "批准" Or e.Col.Name = "终审" Or e.Col.Name = "裁决" Then
    Dim msg As String
    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
        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
    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截图20140509174531875.jpg

 呃，再改

 

If e.Col.Name = "状态" Or e.Col.Name = "审核" Or e.Col.Name = "批准" Or e.Col.Name = "终审" Or 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

 

变量封闭了，把声明语句移到if 上面去