Hi Tariq

SELECT FDATE,GetList(FDATE) AS PARTY;
FROM WEIGHTS;
WHERE FDATE=THIS.VALUE ;
ORDER BY PCODE;
GROUP BY PCODE;
INTO cursor fix


FUNCTION GetList(ldFDATE)
LOCAL lii,lcc
LOCAL ARRAY laPom(1)
SELECT GNO;
FROM WEIGHTS;
WHERE FDATE=ldFDATE ;
ORDER BY PCODE;
GROUP BY PCODE;
INTO ARRAY laPom

lcc=""
FOR lii=1 TO ALEN(laPom,1)
    lcc=lcc+laPom(lii)+","
NEXT


RETURN IIF(LEN(lcc)=0,SPACE(254),LEFT(lcc,LEN(lcc)-1))

MartinJ


>Dear Experts
>

>SELECT FDATE,GNO AS PARTY;
>FROM WEIGHTS;
>WHERE FDATE=THIS.VALUE ;
>ORDER BY PCODE;
>GROUP BY PCODE;
>INTO cursor fix
>

>
>The select statement generate folloiwng SQL Results
>
>25-09-2006------2
>25-09-2006------5
>25-09-2006------6
>25-09-2006------8
>25-09-2006------7
>
>But I want to get following result
>
>25-09-2006------2,5,6,7,8
>
>Please help