主题：VFP如何将选择的文件名保存入数据库中
nhcherry
[专家分：30] 发布于 2008-10-18 16:59:00
VFP编程如何将选择的文件名保存入数据库中
有两个列表框:
列表框一显示指定目录的文件名,另一列表框显示所选择的文件名同时移除列表框一所选的项
不知道应该点编程,列表框应该怎么设置,并且保存数据库(kah.dbf) fnal字段中(字符型)
回复列表 （共4个回复）
沙发
jinlonggao [专家分：17130] 发布于 2008-10-19 15:37:00
在表单的init中写入:
CREATE CURSOR ftable(文件名 c(36),大小 N(10),修改日期 d,修改时间 c(8),属性 c(4),选择 L)
在选择目录的按钮的click中写入:
m.defapaht = getdir()
if !empt(m.defapath)
set defa to (m.defapath)
adir(aflist)
insert into ftable from aflist
sele ftable
set filter to !选择
sele * from ftable where 选择 = .t. into cursor fselect
endif
把ftable临时表作为第一个列表框的数据源
把fselect临时表作为第二个列表框的数据源
并在第一个列表框的clck中写入:
sele ftable
repl 选择 with .t.
this.refresh
........
板凳
mstzl [专家分：70] 发布于 2008-10-19 20:39:00
c
3 楼
nhcherry [专家分：30] 发布于 2008-10-20 08:41:00
[quote]在表单的init中写入:
CREATE CURSOR ftable(文件名 c(36),大小 N(10),修改日期 d,修改时间 c(8),属性 c(4),选择 L)
在选择目录的按钮的click中写入:
m.defapaht = getdir()
if !empt(m.defapath)
set defa to (m.defapath)
adir(aflist)
insert into ftable from aflist
sele ftable
set filter to !选择
sele * from ftable where 选择 = .t. into cursor fselect
endif
把ftable临时表作为第一个列表框的数据源
把fselect临时表作为第二个列表框的数据源
并在第一个列表框的clck中写入:
sele ftable
repl 选择 with .t.
this.refresh
........
[/quote]
1. 这是一个文件名增加一条记录是吗？假如我要将选择的多个文件名放在同一个字段内则应如何编写语句呢?
2. 另一程式是:我要将这个字段调出这些文件名根据各自类型自动打开,又是要怎么编程呢?
4 楼
zhengxinhai [专家分：30] 发布于 2008-10-22 09:25:00
m.defapaht = getdir()
if !empt(m.defapath)
set defa to (m.defapath)
adir(aflist)
insert into ftable from aflist
sele ftable
set filter to !选择
sele * from ftable where 选择 = .t. into cursor fselect
endif
请您试试，运行出现错误，怎样修改呢？
我来回复
您所在位置：