主题：单元格图片

If e.Col.name= "图片" Then

    e.StartDraw

    If e.Row("图片") > "" Then

        Dim file As String = projectPath & "attachments\" & e.Row("图片")

        If FileSys.FileExists(file) Then

            e.Graphics.DrawImage(getimage(file), e.x + 3,e.y + 3, 50, 50) '绘制第一个图标

        End If

    End If

    e.text = ""

    e.EndDraw

End If