35
49
227
中级会员
举报
107
500
3080
管理员
Dim tbl As SmGrid=sender Dim SmPictureBox As SmPictureBox=Proj.OpenedForms("窗体名称").ControlDictionary()("SmPictureBox1") '要先判断一下当前行是否为空 If tbl.CurrentRowData IsNot Nothing Then Dim img As Image=tbl.CurrentRowData.SQlLoadImage("图片列名") SmPictureBox.Image=img End If复制代码
本版积分规则 发表回复 回帖后跳转到最后一页
|Archiver|手机版|小黑屋|苏州三木软件科技有限公司 ( 苏ICP备2022038390号 )
苏公网安备 32058502010732号
GMT+8, 2025-7-26 07:55 , Processed in 0.079229 second(s), 21 queries .
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.