您所在位置：主题：Bag.Contents = Buff 无效的过程调用或参数
kytsxy
[专家分：90] 发布于 2008-07-11 13:13:00
rs.Open "Select userzp_p From dt_userzp ", _
cn, adOpenKeyset, adLockOptimistic
Buff = rs.Fields("userzp_p").Value
Set Bag = New PropertyBag
Call Bag.WriteProperty("Image", Buff)
Bag.Contents = Buff
Set Picture1.Picture = Bag.ReadProperty("Image")
cn, adOpenKeyset, adLockOptimistic
Buff = rs.Fields("userzp_p").Value
Set Bag = New PropertyBag
Call Bag.WriteProperty("Image", Buff)
Bag.Contents = Buff
Set Picture1.Picture = Bag.ReadProperty("Image")