>drwno C(15) block M >1 10,11 >2 10 >3 11 >4 11,12,13 >>
>drwno C(15) block C(5) >1 10 >1 11 >2 10 >3 11 >4 11 >4 12 >4 13 >>
Create Cursor myCursor (drwno c(15),Block c(5)) Local Array aBlocks[1] Local ix Select myExisting Scan For ix=1 To Alines(aBlocks,Block,.T.,',') Insert Into myCursor (drwno,Block) Values ; (myExisting.drwno,aBlocks[m.ix]) Endfor Endscan Select myCursorCetin