How to re-select multiselected listbox items

[DanWalter]

Hello all. I have a legacy app that is resetting the selected listbox row to 1 by default. This is a multiselect list box. Under certain conditions, I am trying to re-establish the multiselect state the list was in. Here's how I'm trying:
* first the selected elements are copied to an array.
list1.multiselect = .T.
FOR i = 1 TO list1.listcount
IF ASCAN(laArray, list1.list(i)) > 0
list1.selected(i) = .T.
ENDIF
ENDFOR

What I end up with is the last item from the array being selected, and I lose all the other selections. In debug mode, I can see the selections traversing the list in order.

Any/all ideas much appreciated!
TIA,
Dan Dan Walter
DWalter@zoo.uvm.edu

 

[jimstarr]

Hi Dan,

As posted your code is straightforward and should work. Check to see that Multiselect stays set to .T.

Jim

 

[DSummZZZ]

Try it this way:

list1.multiselect = 1 &&... instead of .T.

STORE 0 TO nFirstItem
STORE .F. TO lFoundFirst
FOR i = 1 TO list1.listcount
    IF aArray[i] > 0 
        list1.selected(i) = .T.
        IF NOT lFoundFirst
           nFirstItem = i
           lFoundFirst = .T.
        ENDIF
    ENDIF
ENDFOR

list1.ListIndex = nFirstItem   
*...  ListIndex positions marker bar on first selected item
*...    without deselecting the rest.

Dave S.

 

[DanWalter]

Thanks all. The problem was the complexity of the app - a formset with activate code for nearly every object! The issue seemed to be that the listindex acted like it was going out of scope. I found three activate methods that changed the listindex and/or selected() properties, and once I manipulated both properties in all three places, the list behaved perfectly.

Thanks again!

Dan Dan Walter
DWalter@zoo.uvm.edu