>If this message looks familiar its because I posted it earlier but it disappeared. I want to make a delimited string from the selected items in a multiselect listbox. So far all the code I can muster is:
>
>FOR nCnt = 1 TO ThisForm.List1.ListCount
> IF ThisForm.List1.Selected(nCnt)= .t.
> thisform.mytextbox.value = thisForm.List1.List(nCnt) + ","
> ENDIF
>ENDFOR
>
>(I'm displaying the string in mytextbox to check progress during development)
>
>This returns one selection plus a comma. But how do I get all selections?
You were very close :)
local lcValue
with ThisForm.List1
lcValue = ""
FOR nCnt = 1 TO .ListCount
IF .Selected(nCnt)
lcValue = lcValue + ;
iif(empty(lcValue),"",",") + ;
.List(nCnt)
ENDIF
ENDFOR
endwith
thisform.mytextbox.value = lcValue
Cetin