在pb中用SetPicture（lb_image）当lb_image为空时picture的图片不变

[pyh123]

我想在每选一行时picture都变为与该行相关的图片，当数据库中还没有图片数据时
picture不显示任何图片，现在的问题是当没有图片时picture显示上一次的图片
我是这样写的，由于不知道图像的格式不能用p_1.picturename = ...
SQLCA.AutoCommit = True
SelectBlob images Into :lbld_image
From tc_clrimage
Where clr = :ls_currclr;
SQLCA.AutoCommit = False
lbld_image = Blob('') //or SetNull(lbld_image)


p_image.SetPicture(lbld_image)

[jiazhij]

不可以混着用吗？
SQLCA.AutoCommit = True
SelectBlob images Into :lbld_image
From tc_clrimage
Where clr = :ls_currclr;
SQLCA.AutoCommit = False
lbld_image = Blob('') //or SetNull(lbld_image)
if isnull(lb_image) then
p_image.picturename=''
else
p_image.SetPicture(lbld_image)
end if

[jiazhij]

不可以混着用吗？
SQLCA.AutoCommit = True
SelectBlob images Into :lbld_image
From tc_clrimage
Where clr = :ls_currclr;
SQLCA.AutoCommit = False
lbld_image = Blob('') //or SetNull(lbld_image)
if isnull(lb_image) then
p_image.picturename=''
else
p_image.SetPicture(lbld_image)
end if

[pyh123]

你的做法我试过，不行

[chinalht]

if isnull( lb_image ) then
p_image.picturename = ''
return
end if
if len( lb_image ) < 256 then
p_image.picturename = ''
return
end if
p_image.setpicture( lb_image )
那个256可以自己在根据实际情况改一下