主题：如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图

drawcell事件

If e.Col.name= "第一列" Then
    e.StartDraw
    If e.Row("第一列")  > "" Then
        e.Graphics.DrawImage(getimage(projectPath & "attachments\" & e.row("第一列")), e.x + 3,e.y + 3) '绘制第一个图标
    End If
    e.EndDraw
End If

动态显示图片，参考

下载信息  [文件大小：316.0 KB  下载次数：3]

点击浏览该文件:表格提示窗口_小例.table

mark 表格图片

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目25.zip

要写代码的 http://www.foxtable.com/webhelp/scr/1445.htm

试试

If e.Col.name= "物件图片" Then
    e.StartDraw
    If e.Row.IsNull("物件图片") = False Then
        Dim ls = e.Row.DataRow.Lines("物件图片")

output.show(ls(0))
        e.Graphics.DrawImage(getimage(projectPath & "attachments\" & ls(0)), e.x + 3,e.y + 3, 50, 50) '绘制第一个图标
    End If
    e.text = ""
    e.EndDraw
End If