以下是引用吹水佬在2020-7-15 20:47:33的发言：

USE ss IN 0 ALIAS ss
fun(0)
fun(1)
fun(2)
SELECT * FROM ss
USE IN "ss"
RETURN

FUNCTION fun(n)
    cn = TRANSFORM(n)
    USE ("s"+cn) IN 0 ALIAS sn
    SELECT sn
    SET RELATION TO jnh INTO "ss"
    REPLACE ALL ;
        ("ss.M"+cn+"_1") WITH EVALUATE("sn.M"+cn+"_1"),;
        ("ss.M"+cn+"_2") WITH EVALUATE("sn.M"+cn+"_2"),;
        ("ss.M"+cn+"_3") WITH EVALUATE("sn.M"+cn+"_3")
    SET RELATION TO
    USE IN "sn"
ENDFUNC

以下是引用sdta在2020-7-16 09:09:20的发言：

代码放在表单中了吧
表单中合适的事件中
do xxx.prg
即可