主题：在单元格绘图

请教老师：

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

http://www.foxtable.com/help/topics/1493.htm

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

几个图叠加在一起的，能看到。

有办法处理吗？

 例子发上来。

e.Graphics.Clear(Color.White)   先全绘制清楚为白色

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

 测试了一下，不需要擦除的，如果需要刷新，就直接运行一句代码

 

Tables("表A").Refresh

好的