如何用代码的方式让Grid显示通用型字段的图片出来,为何我这样会不对呢?
WITH thisform..grid1
.recordsource="cn1"
.Column1.Width = 100
.Column2.Width = 500
.Column2.Header1.Caption = "pict"
.column2.controlsource="cn1.pict"
.column2.removeobject("text1","text")
.column2.addobject("oleboundcontrol1","oleboundcontrol1")
.column2.currentcontrol=oleboundcontrol1
.column2.image.VISIBLE = .t.
.column2.SPARSE=.F.
ENDWITH
我的cn1 是一个表,其中有一个 通用型pict字段,里面我已经插入了图片了! 现在,要求将此通过代码的方式赋给一个Grid中显示出片来,我用上面的代码,可是出错.
请问我为什么这样会错呢? 请高手帮帮忙, 万分谢谢.
问题点数：20、回复次数：5Top
1 楼darkhawlk（黑鹰）回复于 2006-03-03 14:12:19 得分 0
以下代码在VFP9.0环境下测试成功
－－－－－－－－－－－－－－－－－－－－－－－－
WITH this.column2
blSucce=.addobject("o1","oleboundcontrol")
.o1.visible=.t.
.currentcontrol="o1"
.sparse=.f.
ENDWITH
Top
2 楼wwwwb（）回复于 2006-03-03 14:45:05 得分 0
try:
WITH thisform.grid1
.recordsource="cn1"
.Column1.Width = 100
.Column2.Width = 500
.Column2.Header1.Caption = "pict"
.column2.controlsource="cn1.pict"
.column2.addobject("oleboundcontrol1","oleboundcontrol1")
.column2.currentcontrol=oleboundcontrol1
.column2.currentcontrol.visible=.t.
.column2.SPARSE=.F.
ENDWITH
Top
3 楼apple_8180（十豆三）回复于 2006-03-03 14:59:28 得分 0
WITH thisform.grid1
.recordsource="cn1"
.Column1.Width = 100
.Column2.Width = 500
.Column2.Header1.Caption = "pict"
.column2.controlsource="cn1.pict"
.column2.addobject("oleboundcontrol1","oleboundcontrol1")
.column2.currentcontrol='oleboundcontrol1'
.column8.oleboundcontrol1.visible=.t.
.column2.SPARSE=.F.
ENDWITHTop
4 楼apple_8180（十豆三）回复于 2006-03-03 15:19:03 得分 0
WITH thisform.grid1
.recordsource="cn1"
.Column1.Width = 100
.Column2.Width = 500
.Column2.Header1.Caption = "pict"
.column2.controlsource="cn1.pict"
.column2.addobject("oleboundcontrol1","oleboundcontrol1")
.column2.currentcontrol='oleboundcontrol1'
.column2.oleboundcontrol1.visible=.t.
.column2.SPARSE=.F.
ENDWITH
Top
5 楼apple_8180（十豆三）回复于 2006-03-03 15:22:40 得分 0
上面有问题，更正
WITH thisform.grid1
.recordsource="cn1"
.Column1.Width = 100
.Column2.Width = 500
.Column2.Header1.Caption = "pict"
.column2.controlsource="cn1.pict"
.column2.addobject("oleboundcontrol1","oleboundcontrol")
.column2.currentcontrol='oleboundcontrol1'
.column2.oleboundcontrol1.visible=.t.
.column2.SPARSE=.F.
ENDWITHTop
