文件夹下有多个相同结构dbf文件（有时几十个），想将他们合并到一个文件中，尝试了一段小程序但错误，请高手指教。




同时请教，
1.库结构相同，如何自动判断建立空白库
2.文件夹下若有子目录（比如6、7），如何穿透追加子文件夹下dbf文件

[此贴子已经被作者于2023-9-18 17:00编辑过]

测试正确，谢谢

Close Databases All
Clear
Create Cursor  hb (xxmc c(40),xm c(20),xjh c(23),yycj c(6),mscj c(6))  &&&建立一个空白表
Adir(afile,Sys(5)+Sys(2003)+'\*.dbf')        && 获取当前目录下所有dbf文件
?Alen(afile,1)
For ncount = 1 To Alen(afile,1)  && 遍历数据库
    表名 = afile(ncount,1)  && 显示数据库名
    ? 表名
    Select hb
    Append From (表名)
Endfor
Select hb
Browse
Select xxmc,Count(*) As rs Group By 1 From hb
&&&path=getdir()，这个语句在运行起来必须要放在数据所在文件夹下，否则找不到Adir(afile,Sys(5)+Sys(2003)+'\*.dbf')  &&这个可以获取当前目录下所有dbf文件，
抛砖引玉请高手再提供更好思路帮助解决
1.库结构相同，如何自动判断建立空白库
2.文件夹下若有子目录（比如6、7），如何穿透追加子文件夹下dbf文件
3.? 表名后排序及导入合并后顺序是1、10、11,2、20、21,3、4、5，如何实现1、2、3、4……10、11这样排序。（我用的笨办法改成了01、02、03）

[此贴子已经被作者于2023-9-19 18:07编辑过]

排列不是1、2、3、4的顺序，而是10、1、2、3、的顺序了，求教

谢谢！如何让获取文件名时就达到这样的效果，然后“?表名”这个地方可以看出这样排列

[此贴子已经被作者于2023-9-20 14:49编辑过]

差不多吧。应该是我表达的不够清楚。我的意思是dbf文件的名有顺序1、2、3……10、11……20。想让合并的数据库记录也是按照这个顺序依次导入。
但目前出现
？表名是10、1、20、2、3、4、5……略号的顺序。
导入文件的顺序也是这样10、1、20、2、3、4、5……顺序
For ncount = 1 To Alen(afile,1)  && 遍历数据库
    表名 = afile(ncount,1) && 显示数据库名

这个地方如何实现1、2、3……10、11……20的顺序，没想出来，求教

[此贴子已经被作者于2023-9-21 10:53编辑过]

完全符合要求