以下是引用吹水佬在2022-7-13 15:16:53的发言：


简单示例

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

CREATE TABLE dbf1 (f1 c(11), f2 I, f3 n(9,2))
INSERT INTO dbf1 VALUES ("aa", 1, 1.12)
INSERT INTO dbf1 VALUES ("bb", 2, 2.23)
USE
CREATE TABLE dbf2 (f1 c(11), f2 I, f3 n(9,2))
INSERT INTO dbf2 VALUES ("cc", 3, 3.34)
INSERT INTO dbf2 VALUES ("dd", 4, 4.45)
INSERT INTO dbf2 VALUES ("ee", 5, 5.56)
USE
dbf1 = FILETOSTR("dbf1.dbf")
dbf2 = FILETOSTR("dbf2.dbf")
nDataOffset = CTOBIN(SUBSTR(dbf1,9,2),"2rs") + 1       && 数据块偏移量
nRecords = CTOBIN(SUBSTR(dbf1,5,4),"4rs")              && dbf 记录数
nRecords = nRecords + CTOBIN(SUBSTR(dbf2,5,4),"4rs")   && 合并表记录数
dbf = STUFF(dbf1,5,4,BINTOC(nRecords,"4rs"))           && 取最前的表，修改记录数
dbf = LEFT(dbf,LEN(dbf)-1)                             && 前面的表去除文件结束标志
dbf = dbf + SUBSTR(dbf2,nDataOffset)                   && 追加最后的表（保留文件结束标志）
STRTOFILE(dbf,"dbf.dbf")                               && 保存合并的表
SELECT * FROM dbf
CLOSE TABLES ALL
DELETE FILE dbf.dbf
DELETE FILE dbf1.dbf
DELETE FILE dbf2.dbf

以下是引用mywisdom88在2022-7-14 08:28:23的发言：

没搞过，还能有这个作用的阿

CREATE TABLE dbf (f1 c(11), f2 I, f3 n(9,2))
INSERT INTO dbf VALUES ("cc", 3, 3.34)
INSERT INTO dbf VALUES ("dd", 4, 4.45)
INSERT INTO dbf VALUES ("ee", 5, 5.56)
USE
dbf = FILETOSTR("dbf.dbf")
dbf = LEFT(dbf,LEN(dbf)-10) && 模拟存盘不正常
STRTOFILE(dbf,"dbf.dbf")    
SELECT * FROM dbf           && 抛出异常，按“忽略”继续修复                                
nDataOffset = CTOBIN(SUBSTR(dbf, 9,2),"2rs")                && 数据块偏移量
nRecordSize = CTOBIN(SUBSTR(dbf,11,2),"2rs")                && 记录长度
**nRecords    = INT((LEN(dbf)-nDataOffset)/nRecordSize)       && 有效记录数据
nRecords    = CEILING((LEN(dbf)-nDataOffset)/nRecordSize)   && 尽可能多的数据
dbf = PADR(dbf, nDataOffset+nRecordSize*nRecords, 0h00)
dbf = STUFF(dbf,5,4,BINTOC(nRecords,"4rs")) + 0h1A          && 修改记录数和添加文件结束标志
STRTOFILE(dbf,"dbf.dbf")
SELECT * FROM dbf