SELECT * INTO CURSOR DD READWRITE FROM (;
SELECT * FROM A1 UNION ALL SELECT * FROM A2 UNION ALL SELECT * FROM A3) A
SELECT CNAME FROM DD GROUP BY CNAME INTO CURSOR DD1
I=1
SCAN
AA=CNAME
J=TRANSFORM(I)
SELECT * INTO CURSOR B&J FROM DD WHERE CNAME=AA
I=I+1
ENDS
各位可以试试。