[求助]DrawCell无法按指定条件绘制指定单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想实现根据单元格不同内容，绘制不同的图片。结果只能绘制一种图片。

以下内容为程序代码:

1 Select Case e.Col.Name
2 Case "设计","采购","生产","组装","调试","发货","现场"
3 For Each dr As Row In e.Table.Rows
4 Dim Names As String() = {"设计","采购","生产","组装","调试","发货","现场"}
5 For Each Name As String In Names
6 If dr(name) = "正常完成" Then
7 e.Text = ""
8 e.StartDraw
9 e.Graphics.DrawImage(zcwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )
10 e.EndDraw
11 End If
12 If dr(name) = "延期完成" Then
13 e.Text = ""
14 e.StartDraw
15 e.Graphics.DrawImage(yqwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )
16 e.EndDraw
17 End If
18 Next
19 Next
20 End Select

此主题相关图片如下：qq图片20150320143813.png

Select Case e.Col.Name
    Case "设计","采购","生产","组装","调试","发货","现场"
        If e.Row(e.Col.Name) = "正常完成" Then
            e.Text = ""
            e.StartDraw
            e.Graphics.DrawImage(zcwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )
            e.EndDraw
        Else If e.Row(e.Col.Name) = "延期完成" Then
            e.Text = ""
            e.StartDraw
            e.Graphics.DrawImage(yqwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )
            e.EndDraw
        End If

End Select

谢谢甜版！又重新看了看帮助，代码修改后，运行正常！只比甜版的多句判断If e.Row.IsNull(e.Col.Name) = False 。

Select Case e.Col.Name

Case "设计","采购","生产","组装","调试","发货","现场"

If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容

If e.Row(e.Col.Name) = "无计划" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(wjh, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "正常完成" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(zcwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "正常进行" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(zcjx, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "延期未开工" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(yqwkg, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "延期未完成" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(yqwwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "延期完成" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(yqwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "严重延期未开工" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(yzyq1, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

If e.Row(e.Col.Name) = "严重延期未完成" Then

e.Text = ""

e.StartDraw

e.Graphics.DrawImage(yzyq2, e.x+3,e.y+2,e.Width-6, e.Height-4 )

e.EndDraw

End If

End Select

简写成这样

Select Case e.Col.Name
    Case "设计","采购","生产","组装","调试","发货","现场"
        If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
            e.Text = ""
            e.StartDraw
            Select Case e.Row(e.Col.Name)
                Case "无计划"
                    e.Graphics.DrawImage(wjh, e.x+3,e.y+2,e.Width-6, e.Height-4 )
                Case "正常完成"
                    e.Graphics.DrawImage(zcwc, e.x+3,e.y+2,e.Width-6, e.Height-4 )
            End Select
            e.EndDraw
        End If
End Select

多谢甜版！！！！

主题：[求助]DrawCell无法按指定条件绘制指定单元格