| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 761 人关注过本帖
标题:怎样将某个目录中的dbf文件名写到一个表的字段里?
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
FOR nCount = 1 TO gnDbcnumber  
    insert into b1 values (gaDatabase(nCount,1))
ENDFOR
gaDatabase 是一个二维数组

或者
use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
local aa[gnDbcnumber]
FOR nCount = 1 TO gnDbcnumber  
    aa[nCount]=gaDatabase(nCount,1)
ENDFOR
insert into b1 from array aa

[ 本帖最后由 sdta 于 2015-5-9 21:37 编辑 ]

坚守VFP最后的阵地
2015-05-09 21:33
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分:0 
搞定了,逐条添加,呵呵!原来如此简单

程序代码:
use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
nCount = 1     
APPEND FROM ARRAY gaDatabase(nCount,1)
2015-05-09 21:36
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分:0 
以下是引用sdta在2015-5-9 21:33:23的发言:

use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
FOR nCount = 1 TO gnDbcnumber  
    insert into b1 values (gaDatabase(nCount,1))
ENDFOR
gaDatabase 是一个二维数组

或者
use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
local aa[gnDbcnumber]
FOR nCount = 1 TO gnDbcnumber  
    aa[nCount]=gaDatabase(nCount,1)
ENDFOR
insert into b1 from array aa

谢谢!学习一下
2015-05-09 21:38
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 

坚守VFP最后的阵地
2015-05-09 21:49
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
以下是引用muyubo在2015-5-9 21:36:08的发言:

搞定了,逐条添加,呵呵!原来如此简单

use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
nCount = 1     
APPEND FROM ARRAY gaDatabase(nCount,1)

会者不难,难者不会。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2015-05-09 21:53
ttyy123
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-9-14
收藏
得分:0 
&&假如表在默认目录下的dbfs文件夹内
set default to e:\den
create table b1 ( TableName c(40) )
gnDbcnumber = ADIR(gaDatabase, 'dbfs\*.DBf')  
FOR nCount = 1 TO gnDbcnumber  
select b1     
APPEND FROM ARRAY gaDatabase(nCount,1)
ENDFOR
select b1
append blank
replace TableName with  "共"+str(gnDbcnumber)+"个记录"
browse
use
delete file b1.dbf
2015-05-12 10:25
快速回复:怎样将某个目录中的dbf文件名写到一个表的字段里?
数据加载中...
 
   



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

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