将获取的文件名称，插入数据表 → 按此方法排序 → 按照排序后的记录，依次获取文件名即可。不知是否是这个意思？

差不多吧。应该是我表达的不够清楚。我的意思是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编辑过]

是这个意思吗？

create cursor  wj (wjm c(40),px n(6,0))  &&&建立一个空白表
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文件
for ncount = 1 to alen(afile,1)
   表名 = afile(ncount,1)
   insert into wj(wjm,px) values(alltrim(表名),val(表名))
endfor
select * from wj order by px into cursor wjb
select wjb
go top
scan
   文件名 = alltrim(wjm) && 显示数据库名
   ? 文件名
   select hb 
   append from (文件名) 
endscan
select hb
browse

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

完全符合要求

建立空表的代码还能优化吗？，因为这个代码只适用这个结构的表，换个表就要改代码，比如获取第一个表copy stru 到一个新表，或者直接手动复制一个表改成总表，代码直接 use 总表，zap，然后再继续后面的代码。

程序在比较大小时，将10与1A进行比较了。你把数字放在最后试试看。

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

这种方法也行