>>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 >>&lcStr >>>>But this almost block my computer :o), in VFP working with NATIVE tables :-).