主题：在单元格绘图

请教老师：

在单元格中直接绘图如何在绘第2个图前擦掉第1个图？

覆盖后可以看到前面绘的图啊！

If e.Col.name= "报告编号" Then
    If e.Row.IsNull("检验计划下达日期") = False '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("DOT.GIF"), e.x + 161,e.y + 1)
        e.EndDraw
    End If
End If
If e.Col.name= "报告编号" Then
    If e.Row.IsNull("检验开始日期") = False '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("322.GIF"), e.x + 165,e.y + 4)
        e.EndDraw
    End If
End If

If e.Col.name= "报告编号" Then
    If e.Row.IsNull("检验记录批准日期") = False '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("POINT1.GIF"), e.x + 163,e.y + 1)
        e.EndDraw
    End If
End If

If e.Col.name= "报告编号" Then
    If e.Row.IsNull("检验报告批准日期") = False '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("POINT4.GIF"), e.x + 163,e.y + 1)
        e.EndDraw
    End If
End If

好的

这样就好了：

If e.Col.name= "报告编号" Then
    If e.Row.IsNull("检验报告批准日期") = False Then '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("POINT4.GIF"), e.x + 163,e.y + 1)
        e.EndDraw
    ElseIf e.Row.IsNull("检验记录批准日期") = False Then '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("POINT1.GIF"), e.x + 163,e.y + 1)
        e.EndDraw
    ElseIf e.Row.IsNull("检验开始日期") = False Then '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("322.GIF"), e.x + 165,e.y + 4)
        e.EndDraw
    ElseIf e.Row.IsNull("检验计划下达日期") = False Then '且该列已经输入内容
        e.StartDraw
        e.Graphics.DrawImage(GetImage("DOT.GIF"), e.x + 161,e.y + 1)
        e.EndDraw
    End If
End If