3、打印按钮的CLICK事件:
*假设你的表名T1,存放图片路径的字段名为PhoPath
IF !USED('T1')
USE T1
ELSE
SELECT T1
ENDIF
PUBLIC lcfilename(RECCOUNT())
SCAN
IF FILE(ALLTRIM(T1.PhoPath))
lcfilename(RECNO())=ALLTRIM(T1.PhoPath)
ELSE
lcfilename(RECNO())='NullPho.bmp'
ENDIF
ENDSCAN
GO TOP
REPORT FORM reportpho1 PREVIEW