PictureVal很怪异是吗？在VFP里没有问题，编译exe，却不显示图像，也不报出错！
大家遇到没有？

Select dbf语丝
**总数,ID,内容,类别,上传作者,上传日期
GO INT(RECCOUNT() * RAND() + 1)
GO 11
This.Parent.tipsText.caption = ALLTRIM(dbf语丝.内容)
IF ISNULL(dbf语丝.配图)
    This.Parent.TipsPic.visible = .F.
    This.Parent.TipsPic.Picture = ""
    this.Parent.tipsText.Left = 12
    this.Parent.tipsText.width = 217
ELSE
    IF !DIRECTORY(MyPath + "temp")
        MKDIR (MyPath + "temp")
    ENDIF
    IF !FILE(dbf语丝.配图,MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式)
        =Strtofile(dbf语丝.配图,MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式)
    ENDIF
&&    This.Parent.TipsPic.PictureVal = CAST(dbf语丝.配图 as W)        这句怎么也不行，只好用下面一句生成图像文件再显示！好晕。
    This.Parent.TipsPic.Picture = MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式
    this.Parent.tipsText.Left = 90
    this.Parent.tipsText.width = 139
    This.Parent.TipsPic.visible = .T.
ENDIF


补图1，在VFP中运行效果：


补图2，exe运行效果：

[此贴子已经被作者于2016-6-14 21:33编辑过]

谢谢！补上图了。麻烦，谢谢

BLOB

谢谢，我前几天也是碰巧可以了。花了我好几天时间！