以下是引用shenxihua在2023-5-2 00:44:55的发言：
谢谢二楼，正是我想要的结果。
七楼的结果行列颠倒了，如果能倒过来就对了。
其实我想要的是机号连成一行文本，写在一个字段里。我就可以转成word文件去打印了。
这样的表现实很有意义的，一个品种有哪机台机在做。
谢谢二楼，正是我想要的结果。
七楼的结果行列颠倒了，如果能倒过来就对了。
其实我想要的是机号连成一行文本，写在一个字段里。我就可以转成word文件去打印了。
这样的表现实很有意义的，一个品种有哪机台机在做。
程序代码：CREATE CURSOR test (品种 c(1), 机号 c(1))
INSERT INTO test VALUES ("A", "5")
INSERT INTO test VALUES ("B", "4")
INSERT INTO test VALUES ("A", "1")
INSERT INTO test VALUES ("A", "3")
INSERT INTO test VALUES ("A", "2")
INSERT INTO test VALUES ("B", "6")
INSERT INTO test VALUES ("B", "7")
CREATE CURSOR tt (品种 c(1), jh c(100))
INSERT INTO tt (品种) SELECT DISTINCT 品种 FROM test
INDEX ON 品种 TAG t1
SELECT test
SET RELATION TO 品种 INTO tt
SCAN
IF FOUND("tt")
REPLACE jh WITH "," + test.机号 - jh IN tt
ENDIF
ENDSCAN
SELECT tt
REPLACE jh WITH SUBSTR(jh, 2) ALL
BROWSE
坚守VFP最后的阵地
