| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 639 人关注过本帖
标题:[求助]一个表单的问题
只看楼主 加入收藏
zhangtracy
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-7-19
收藏
 问题点数:0 回复次数:7 
[求助]一个表单的问题
请教各位大侠,我用表单给数据表添加新记录时有一个通用型字段“照片”,怎么能从图片文件夹里选择图片填到这个字段里呢?
搜索更多相关主题的帖子: 表单 字段 通用型 照片 
2006-07-19 15:31
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 

我的菜鸟级做法:
设一个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编辑过]


两人行已有我师……
2006-07-19 15:54
zhangtracy
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-7-19
收藏
得分:0 
多谢大侠,不胜感激!我试试看哦!

2006-07-19 18:22
zhangtracy
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-7-19
收藏
得分:0 
呜呜,我太笨了,看了人家给的方法还是不会做,我现在还停留在FETFIEL()的阶段,下一步怎么做啊,谁能教教我?

2006-07-20 09:49
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 

用GetFile()获得文件名后,用APPEND GENERAL 相片 FROM 文件名命令就可把相片存入通用字段了


两人行已有我师……
2006-07-20 10:35
zhangtracy
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-7-19
收藏
得分:0 
原谅我的无知吧,我是这样写的:
FNAME=GETFILE("JPG,GIF,JPEG")
IF LEN(ALLTRIM(FNAME))>1
APPEND GENERAL ZP FROM FNAME
ENDIF
然后系统提示错误的信息是文件“盘符/文件夹/FNAME”不存在。我是不是应该先把代表文件路径和名称的FNAME存在一张表里啊!?

2006-07-20 11:25
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
APPEND GENERAL ZP FROM &FNAME

两人行已有我师……
2006-07-20 11:45
zhangtracy
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-7-19
收藏
得分:0 
呜呜,成功了!!感激涕零!

2006-07-20 12:54
快速回复:[求助]一个表单的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.062342 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved