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

以下内容为程序代码:

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