PictureBox 无法清空? :( 请大家指点!

[axiang99]

//清空
setnull(pic)
p_2.setpicture(pic)
*********************目的:清空显示. 界面上没反应啊,还是上一副图片.怎么办呢?

//显示
selectblob photo into :pic from vehicle where licenseplate = :str_ID;

if sqlca.sqlcode <> - 1 then
if len(pic)> 0 then
p_2.setpicture(pic)
else
messagebox("显示图片","图片为空")
end if
else
messagebox("显示图片错误",sqlca.sqlerrtext)
end if

[tulip2108]

p_2.picturename=''

[axiang99]

还是不好用,得 p_2.picturename='' 2次才行.为什么呢? :(

[devil_heart]

p_2.picturename=''一次就可以啊！

[axiang99]

我这里得2次,不知道为什么...:(

[tulip2108]

你的代码让人晕，
photo是blob还是字符串？
如是blob且是bmp类型的，如下：
blob lblob_data
int li_filenum
p_2.picturename=''
selectblob photo into :lb_data from vehicle where licenseplate = :str_ID;
if sqlca.sqlcode <> - 1 then
if len(lblob_data)> 0 then
li_FileNum = FileOpen("C:\temp.bmp", &
StreamMode!, Write!, LockWrite!, Replace!)
FileWrite (li_fileNum,lblob_data)
fileclose(li_filenum)
p_2..picturename="c:\temp.bmp"
else
messagebox("显示图片","图片为空")
end if
else
messagebox("显示图片错误",sqlca.sqlerrtext)
end if

[axiang99]

顶一下,不行就结贴:)

[Methodor]

跟踪检查一下~
是疏忽的缘故~