如何由表文件T1.DBF生成表文件T2.DBF,请各位高手赐教，万分感谢！！！

SELECT DISTINCT "   " xh,xm,SPACE(240) kmnr, 0000 zks FROM t1 INTO CURSOR t2 READWRITE 
SELECT t2
INDEX on xm TAG XM
SELECT t1
SET RELATION TO xm INTO "t2"
REPLACE ALL t2.xh   WITH PADL(RECNO("t2"),3,"0"),;
            t2.kmnr WITH t2.kmnr-t1.nj-t1.bj-t1.km-"，",;
            t2.zks  WITH t2.zks+t1.ks
SET RELATION TO 
SELECT t2 
REPLACE ALL kmnr WITH kmnr-"计"-TRANSFORM(zks)-"节"
SELECT * FROM t2

@吹水佬 非常感谢！！！能否做到按T1.DBF表中xm出现的先后顺序生成T2.dbf,不按姓氏拼音顺序排列，望赐教！

也可以参考：https://bbs.bccn.net/thread-504858-1-2.html 10楼的代码

那就按顺序逐个添加到T2

USE t1 IN 0
USE t2 IN 0
SELECT t2
ZAP
INDEX on xm TAG XM
SELECT t1
SET RELATION TO xm INTO "t2"
SCAN
    IF !FOUND("t2")
        INSERT INTO t2 (xm) VALUES (t1.xm)
    ENDIF
    REPLACE t2.xh   WITH PADL(RECNO("t2"),3,"0"),;
            t2.kmnr WITH t2.kmnr-t1.nj-t1.bj-t1.km-"，",;
            t2.zks  WITH t2.zks+t1.ks
ENDSCAN
SET RELATION TO 
SELECT t2 
DELETE TAG ALL 
REPLACE ALL kmnr WITH kmnr-"计"-TRANSFORM(zks)-"节"
SELECT * FROM t2

@吹水佬 非常感谢！！！问题完美解决。

@吹水佬、sdta，感谢！学习啦！

你好，程序里的短横线是用来连接字段的内容吗？
“REPLACE t2.kmnr WITH t2.kmnr-t1.nj-t1.bj-t1.km-"，"”
附原程序：
SELECT DISTINCT "   " xh,xm,SPACE(240) kmnr, 0000 zks FROM t1 INTO CURSOR t2 READWRITE
SELECT t2
INDEX on xm TAG XM
SELECT t1
SET RELATION TO xm INTO "t2"
REPLACE ALL t2.xh   WITH PADL(RECNO("t2"),3,"0"),;
        t2.kmnr WITH t2.kmnr-t1.nj-t1.bj-t1.km-"，",;
            t2.zks  WITH t2.zks+t1.ks
SET RELATION TO
SELECT t2
REPLACE ALL kmnr WITH kmnr-"计"-TRANSFORM(zks)-"节"
SELECT * FROM t2

试试就清楚
? "ABCD   " + "EFGH"
? "ABCD   " - "EFGH"

老师，既然都是连接字符串，为什么替换为“+”得不到需要的结果，“-”在帮助文档查不到