>Emp Date Note >--------------------------- >1 {1/1/1} Project 1 >1 {1/2/1} Assist Kim >2 {1/1/1} Sick >2 {1/2/1} Project 3 > >results desired: > >Emp Notes >--------------------------- >1 Project 1 chr(13) Assist Kim chr(13) >2 Sick chr(13) Project 3 chr(13) >>
Select Emp, fnNotes(Emp) As Notes ; FROM mytable ; GROUP BY Emp ... FUNCTION fnNote LPARAMETERS tnEmp LOCAL laArray[1], i, lcNotes Select Note ; FROM mytable ; WHERE Emp = tnEmp ; INTO ARRAY laArray lcNotes = "" FOR i=1 TO LEN(laArray) lcNotes = lcNotes + laArray[i] + CHR(13) ENDFOR RETURN lcNotesRemember that query with UDF could be quite slow on the big tables.
CREATE CURSOR crsNotes (Notes M) Select Emp, crsNotes.Notes ; FROM mytable ; GROUP BY Emp ; INTO CURSOR crsResult ReadWrite SCAN lnEmp = Emp Select Note ; FROM mytable ; WHERE Emp = lnEmp ; INTO ARRAY laArray lcNotes = "" FOR i=1 TO LEN(laArray) lcNotes = lcNotes + laArray[i] + CHR(13) ENDFOR REPLACE Notes WITH lcNotes ENDSCAN