| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 849 人关注过本帖
标题:求助,N(多张自由表)张相同结构的自由表合并,要求把每张表的名称添加一列. ...
只看楼主 加入收藏
yxwhq614
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-4-22
结帖率:0
收藏
已结贴  问题点数:20 回复次数:11 
求助,N(多张自由表)张相同结构的自由表合并,要求把每张表的名称添加一列.......
我每周都有一批表是xls格式的,有多有少,要合并成一个表.dbf。
要求合并后的表中多一列,这个列的内容就填充这个表的名称。填充的表的名称是之前没合并的表的名称。
我现在用APPEND FROM这个把所有表的记录追加到第一张表中,这样做的问题是会把所有表的表头也追加到每一张表中了。。

有没有人帮写个程序啊!
拜谢了!!!


[ 本帖最后由 yxwhq614 于 2015-4-22 15:04 编辑 ]
搜索更多相关主题的帖子: 记录 
2015-04-22 14:59
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:4 
上传个xls样表看看 可举个例子
2015-04-22 15:13
yxwhq614
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-4-22
收藏
得分:0 

案例中有三个表,现在我只有我能合并后的样子,
新建文件夹.rar (17.33 KB)
2015-04-22 15:23
yxwhq614
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-4-22
收藏
得分:0 
回复 2楼 tlliqi
新建文件夹.rar (17.34 KB)

如有不清楚,我再补充,谢谢。
2015-04-22 15:23
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:4 
楼主的意思还没完全表达清楚吧

坚守VFP最后的阵地
2015-04-22 15:28
yxwhq614
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-4-22
收藏
得分:0 
回复 5楼 sdta
简单举个例子吧:
假如只有三个表:张三.dbf;李四.dbf;王一.dbf。现在要求把这三张表合并在一起(这三张表的结构是一样的),最好生成一个新表,合并后的这个新表中要增加一列,这一列的内容对应前面三张表的数据,也就是合并后的表中张三的数据前面增加的列内容就填张三,李四的数据前面增加的列的内容就填李四。。。。)。
2015-04-22 15:34
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
回复 楼主 yxwhq614
合并后把多余的表头删除不行吗
2015-04-22 15:48
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
看了你的表,明白了你的要求。
用ADIR()的方法
程序代码:
CLEAR ALL
SELECT 0
USE TNAME
NROW=ADIR(AFILE,"*.XLS")
FOR I=1 TO NROW
    FILENAME=JUSTSTEM(AFILE[I,1])
    * 用个临时表过渡一下,也可以不用临时表过渡。
    CREATE CURSOR TEST (.....,地点 C(10)) && 自己创建与EXCEL中的相同字段
    APPEND FROM EXCELNAME AFILE[I,1] XL5
    REPLACE ALL 地点 WITH FILENAME
    SELECT TNAME
    APPEND FROM TEST FIELDS .... && 此处字段顺序要与TNAME表中的字段顺序要一致
ENDFOR
SELECT TNAME
BROWSE
CLEAR ALL

坚守VFP最后的阵地
2015-04-22 15:57
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:4 
APPEND FROM ....FOR .... 带FOR条件可把表头无效的记录过滤掉。
2015-04-22 16:38
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:4 
楼主是要鱼啊

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2015-04-22 17:21
快速回复:求助,N(多张自由表)张相同结构的自由表合并,要求把每张表的名称添加 ...
数据加载中...
 
   



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

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