USE 结果 ALIAS 结果 IN 0
ZAP
INDEX on 序号 TAG tag_序号
USE 原文件 ALIAS 原文件 IN 0
SELECT 原文件
SET RELATION TO 序号 INTO "结果"
SCAN
IF FOUND("结果")
REPLACE 结果.主账户 WITH 结果.主账户-"-"-原文件.主账户,;
结果.子账户 WITH 结果.子账户-"-"-原文件.子账户,;
结果.金额 WITH 结果.金额-"-"-原文件.金额
ELSE
INSERT INTO 结果 VALUES (原文件.序号, 原文件.主账户, 原文件.子账户, 原文件.金额)
ENDIF
ENDSCAN
SET RELATION TO
SELECT * FROM 结果