CREATE CURSOR Test (Fld1 I) CREATE CURSOR Test1 (Fld1 I, FLd2 M) FOR asd = 1 TO 76 INSERT INTO Test VALUES (asd) INSERT INTO Test1 VALUES (asd%4+1, REPLICATE([a],asd)) NEXT SELECT MAX(test) AS test; FROM (SELECT Fld1, COUNT(*) AS test; FROM Test1; GROUP BY Fld1) Tbl1; INTO CURSOR crsTest lcStr = [SELECT Test.Fld1,MAX(] lcJoin = [] FOR lnFor = 1 TO crsTest.Test lcStr = lcStr + IIF(lnFor>1,[+],[]) + [NVL(","+ALLTRIM(Tbl]+TRANSFORM(lnFor)+[.Fld2),"")] lcJoin = lcJoin + [ LEFT JOIN Test1 Tbl]+TRANSFORM(lnFor)+[ ON Test.Fld1 = Tbl]+TRANSFORM(lnFor)+[.Fld1] NEXT lcStr = lcStr + [) AS TestMe FROM Test ]+lcJoin+[ GROUP BY Test.Fld1 INTO CURSOR crsTte] _cliptext =lcStr &lcStrBut this almost block my computer :o), in VFP working with NATIVE tables :-).