主题：在单元格绘图

这样就好了：

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