我每周都有一批表是xls格式的，有多有少，要合并成一个表.dbf。
要求合并后的表中多一列，这个列的内容就填充这个表的名称。填充的表的名称是之前没合并的表的名称。
我现在用APPEND FROM这个把所有表的记录追加到第一张表中，这样做的问题是会把所有表的表头也追加到每一张表中了。。

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


[ 本帖最后由 yxwhq614 于 2015-4-22 15:04 编辑 ]

上传个xls样表看看 可举个例子

案例中有三个表，现在我只有我能合并后的样子，

如有不清楚，我再补充，谢谢。

楼主的意思还没完全表达清楚吧

简单举个例子吧：
假如只有三个表：张三.dbf;李四.dbf;王一.dbf。现在要求把这三张表合并在一起（这三张表的结构是一样的），最好生成一个新表，合并后的这个新表中要增加一列，这一列的内容对应前面三张表的数据，也就是合并后的表中张三的数据前面增加的列内容就填张三，李四的数据前面增加的列的内容就填李四。。。。）。

合并后把多余的表头删除不行吗

看了你的表，明白了你的要求。
用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

APPEND FROM ....FOR .... 带FOR条件可把表头无效的记录过滤掉。

楼主是要鱼啊