[求助]一个表单的问题
请教各位大侠,我用表单给数据表添加新记录时有一个通用型字段“照片”,怎么能从图片文件夹里选择图片填到这个字段里呢?
我的菜鸟级做法:
设一个List控件,并在该控件的InterActiveChange 事件写入以下代码
cSelected = UPPER(THIS.List(THIS.ListIndex))
CD THIS.List(2)
IF ".BMP"$cSelected
THISFORM.image1.Picture = THIS.List(2) + cSelected
ENDIF
在“导入相片”按钮的Clik事件写入以下代码。
cSelected = UPPER(THISFORM.LIST1.List(THISFORM.LIST1.ListIndex))
CD THISFORM.LIST1.List(2)
IF ".BMP"$cSelected
SELE ZY
APPEND GENERAL 相片 FROM THISFORM.LIST1.List(2) + cSelected
thisform.release
ELSE
messagebox('您并没有选择相应的相片文件',48,'提示信息')
ENDIF
当然,这中对BMP格式文件的,你可以修改一下。另外,您也可以用GetFile()函数获得相应的文件名,然后再用 APPEND GENERAL 命令存入通用字段中。
还有一种方法,使用FileToStr()函数把图形文件转换后存入二进制备注字段中(不是通用字段)
[此贴子已经被作者于2006-7-19 16:02:39编辑过]