Hi Bob:

Good code snippet, very concise...

Refer to this reference in your code:

ALLTRIM(oObj.ListItem[i,2])


I think the above is only a 1-dimensional array, such as

ALLTRIM(oObj.ListItem[i])

HTH,

-Irv.


>Hi All,
>
>I am trying to store and then restore the selections in a multi-select list box. I have the code to store the selections working fine. Basically, I stored an underscore delimited string of the 'key' values. Now, I want to take this string and restore the multi-selections, but only the last item I set to selected is selected.
>
>Here is my code:
>
>

>LPARAMETERS cObjName, cSelected
>
>LOCAL oObj AS ListBox, i
>
>oObj = EVALUATE("This."+cObjName)
>
>FOR i = 1 TO oObj.ListCount
>	IF ALLTRIM(oObj.ListItem[i,2]) $ cSelected
>		oObj.SelectedID[i] = .T.
>	ENDIF
>ENDFOR
>
>RETURN
>

>
>Any help would be apreciated.
>
>BOb