FOR lnCount = 1 TO loSelected.LISTCOUNT

	lnItem = loSelected.INDEXTOITEMID(lnCount)

	lcSelectedFields = lcSelectedFields + ;
			IIF(EMPTY(lcSelectedFields), '', ',') + loSelected.LISTITEM(lnItem)

ENDFOR