CREATE CURSOR abc (bh C(15), rec I, abc C(1))
CREATE CURSOR tmp (bh C(15), rec I, abc C(1))
SELECT tmp 
APPEND FROM a.dbf
REPLACE rec WITH RECNO(), abc WITH "a" ALL 
SELECT abc 
APPEND FROM DBF("tmp")
SELECT tmp 
ZAP
APPEND FROM b.dbf
REPLACE rec WITH RECNO(), abc WITH "b" ALL 
SELECT abc 
APPEND FROM DBF("tmp")
SELECT tmp 
ZAP
APPEND FROM c.dbf
REPLACE rec WITH RECNO(), abc WITH "c" ALL 
SELECT abc 
APPEND FROM DBF("tmp")
CALCULATE MAX(rec) TO MaxRec
MaxRec = LEN(TRANSFORM(MaxRec))
INDEX ON PADL(rec, MaxRec, "0") + abc TAG Recabc
BROWSE

高，这代码简洁，我怎么想不到。得继续学习哎……

代码简练，效率是否高，没验证。

数据量小问题不大，数据量大时效率会受到影响，就算 APPEND FROM 命令有多高效，每次调用都要读取整个文件内容。
如本例要对3个文件各读取整个文件3千多次了，如果数据再大点，效率就可想而知。

select bh,"a"+padl(recno(),4,"0") xh from a union all select bh,"b"+padl(recno(),4,"0") from b union all select bh,"c"+padl(recno(),4,"0") from c into cursor abc
index on right(xh,4) tag aa
copy to aa fields bh
use aa
browse
也是很慢，
分成三句生成三个文件然后追加一个文件再索引，虽然打命令多一一点，速度会快点的。
select bh,"a"+padl(recno(),4,"0") xh from a  into table ls1
select bh,"b"+padl(recno(),4,"0") xh from b  into table ls2
select bh,"c"+padl(recno(),4,"0") xh from c  into table ls3
select ls1
appe from ls2
appe from ls3
inde on righ(xh,4) to ls0
brow


[ 本帖最后由 sylknb 于 2015-7-16 10:41 编辑 ]

针对所给样本数据，对每个库的所有记录顺序编号，依次加载到目标库，再重新进行排序，可靠而高效，不会破坏原库的数据和结构，而能得到所要的结果，主要代码如下：

private all
set safety off
use a
copy to ls.dbf
use ls
alter table ls add column ls_xh N(10)
replace all ls_xh with recno()
copy structure to hzk
use hzk
append from ls
use b
copy to ls.dbf
use ls
alter table ls add column ls_xh N(10)
replace all ls_xh with recno()
use hzk
append from ls
use c
copy to ls.dbf
use ls
alter table ls add column ls_xh N(10)
replace all ls_xh with recno()
use hzk
append from ls
sort to hzk1 on ls_xh
use hzk1
brow
erase ls.dbf
erase ls.fpt
erase hzk.dbf
erase hzk.fpt
return


[ 本帖最后由 沙枣 于 2015-7-16 11:23 编辑 ]

此句中：SELECT bh,SPACE(5) as xh from a where .F. into table hzb 的where .F.为什么.f.?用.T.可否？

这种需求，第一本来就不需要合併到一张表中，第二就算合併也只是两次append from的代价。

全部合并后排序就ＯＫ！

感谢论坛高人无私的帮助，
原本的需求是这样的，看我能不能表述的清楚。

先看一下2015excel表，里面有三列数据，3080行数据，第二列最后一个和第三列第一个数据号码是连续的。
现在第一个问题是数据的行数需要能被300整除，所以要变成3300行数据，顺号连续。
第二个问题是要3300/3=1100为间隔分成三个数据段降序，三列数据都是这样，而且要保证三列数据的每行数据
一一对应。最终能做成如图式样的txt数据文件。
excel表只是个形式为了说明问题，号段的生成排序应该可以在程序一并完成吧。数据也不局限在3300行
         也可能是9000行，不定。 各位有闲暇帮看一下。