在表单里有个数据表,里面有一个gen字段存放图片,该表单有添加,编辑,删除,等功能按钮,在表单的load事件里:
set multilocks on
=cursorsetprop('buffering',5,'详细信息')
当按“添加”时就执行append blank,然后就执行
SelectPict=GETPICT("bmp;jpg;jif")&&选择图片
ADIR(SelectPictArray,SelectPict)&&把图片存入数组中
IF SelectPictArray(2)>102400
MESSAGEBOX("选择的图片文件不能大于100K,请重新选择照片。",48,"提示信息")
RETURN
ENDIF
APPEND GENERAL 设备详细信息.图片 FROM (SelectPict)
再按“保存”按钮执行
=tableupdate(.t.)
thisform.refresh
退出时执行
use "d:\devmanager\data\详细信息.dbf" exclusive
pack
close table
thisform.release
我一边运行该表单一边在浏览数据表的变化,添加后的确是在数据表里加了一条新记录,但退出表单后这条记录又没有了
你是怎样添加的,在表单上通常是用 OLE Bound ActiveX 控件进行输入的,能说得详细点吗?
DATA cExpression:指定字符表达式,此表达式作为一个字符串存入 OLE 对象的通用字段中。OLE 对象必须能接收和处理字符串。例如,不能往 Paintbrush. 的图片对象中存入字符串。
CLASS OLEClassName:指定 OLE 对象是 OLE 类,而非其默认类。当 FileName 的扩展名不标准时使用(如WORD文档的标准扩展名是DOC)。