请教，如何在 grid1中给一列绑上不同图片。有3张图，名称分别是 yes.bmp  no.bmp  none.bmp ,grid表格列中加入了一个图片控件(picture)，表格对应数据表有一列用于存放图片名称,图片不显示出来
序号   设备名称    合格情况    图片
1       eqpt001      合格       yes.bmp
2       eqpt002     不合格      no.bmp
3       eqpt003      未检       none.bmp

有个测试用的类

DEFINE CLASS grid1 as Grid 
    left=10
    top=40
    width=200
    RowHeight=32
    HeaderHeight=0
    GridLines=0
    DeleteMark=.f.
    RecordMark=.f.
    AllowCellSelection=.f.
    SplitBar=.f.
    ScrollBars=2
    icoIndex = 1
    PROCEDURE init
        this.AddObject("imgCol","Column1")
        this.imgCol.ColumnOrder = 1
    ENDPROC 
    PROCEDURE AfterRowColChange(nColIndex)
        IF this.RowColChange == 1
            this.icoIndex = RECNO()
            this.SetFocus
        ENDIF     
    ENDPROC
ENDDEFINE

DEFINE CLASS Column1 as Column
    Width=32
    Sparse=.F.
    Visible=.t.
    PROCEDURE init
        this.RemoveObject("Text1")
        this.AddObject("img0", "image")
        this.AddObject("img1", "image")
        this.img0.Picture = "d:\temp\test_0.ico"
        this.img1.Picture = "d:\temp\test_1.ico"
            * 切换 Column 的 CurrentControl
        this.DynamicCurrentControl = [IIF(RECNO("tt")==thisform.grd.icoIndex,"img0","img1")]
    ENDPROC
ENDDEFINE

附简单的项目文档（里面有一个表单，和图片文件）

[此贴子已经被作者于2026-5-29 09:50编辑过]

运行 test_1.prg

[此贴子已经被作者于2026-5-29 14:35编辑过]

谢谢大佬 我用这种方式做，为什么不能显示图片 （grid里列绑了一个图片控件）
CREATE CURSOR ct_gd1(;
fno int,;
fname varchar (50),;
fstatus varchar(50),;
fpic gen )


    SELECT ct_gd1
    APPEND BLANK
    replace fno WITH 1
    replace fname WITH 'eqpt001'
    replace fstatus WITH '合格'
    APPEND GENERAL fpic FROM 'C:\testprocess\yes.bmp'

    APPEND BLANK
    replace fno WITH 2
    replace fname WITH 'eqpt002'
    replace fstatus WITH '不合格'
    APPEND GENERAL fpic FROM 'C:\testprocess\no.bmp'

    APPEND BLANK
    replace fno WITH 3
    replace fname WITH 'eqpt003'
    replace fstatus WITH '未检'
    APPEND GENERAL fpic FROM 'C:\testprocess\none.bmp'
   


thisform.grid1.RecordSource='ct_gd1'



附源码测试（表格图片2.scx)

[此贴子已经被作者于2026-5-29 15:28编辑过]

运行：表格图片2.scx

谢谢大佬！项目下载下来后报错，运行后没有图片显示

右点击“表1〞，移除。
你用的VFP是什么版本？

vfp9.0  老师还是你的这个方法好用，请教，这个类中我加入了click事件，为什么不起作用
DEFINE CLASS grid_img AS image
    BackStyle = 0
    Width = 32
    Height = 32
    Stretch = 1
    PROCEDURE BackStyle_ACCESS
        this.Picture = ct_gd1.fpic
        RETURN THIS.BackStyle
    ENDPROC
    PROCEDURE click
        wait wind '测试一下'
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2026-5-30 09:54编辑过]