Select 0 CREATE CURSOR crsMemo (ItemList M) APPEND BLANK Select 0 USE test1 SELECT id, crsMemo.Itemlist ; FROM test1, crsMemo ; GROUP BY 1 ; INTO CURSOR crsRep READWRITE REPLACE ALL ItemList WITH CreateItemList(Id) RETURN FUNCTION CreateItemList(tcId) LOCAL lcItemList, lcCrLf, laList[1], i SELECT Item, Total ; FROM test1 ; WHERE Id = tcId ; INTO ARRAY laList lcCrLf = Chr(13)+ Chr(10) lcItemList = "" FOR i=1 TO ALEN(laList,1) lcItemList = lcItemList + lcCrLf + Padr(laList[i,1],32) + Str(laList[i,2],3) ENDFOR RETURN Substr(lcItemList,3)Make sure that you use non-proportional font for ItemList field on the label.
Field Field Name Type Width 1 ID Character 3 2 ITEM Character 10 3 TOTAL Numeric 3>Example:
>ID= 245 >Brush 5 >Pen 10 >and another label will be: >ID=321 >pen 40 >glass 15 >ruler 3 >phone 25 >etc.>