LOCAL loObj,lcCustno,akind[1,2],aselet[1,2],i,j loObj=Thisform.cgpageframe1.page1 select customer lcCustno=ALLT(EVAL("KIND")) && cuskind is the name of my subclassed mover object && make empty both list boxes loObj.cuskind.lstLeft.clear() loObj.cuskind.lstRight.clear() select name from cuskind where code $ lcCustno into array aSelet store _tally to i IF i > 0 && fill left list box with suitable data.. loObj.cuskind.initselections(@aselet) ENDIF select name from cuskind where !EMPTY(name) and !(code $ lcCustno) into array akind store _tally to j IF j > 0 && fill right list box in case some values already saved in field loObj.cuskind.initchoices(@aKind) ENDIFThen your _mover will show selected and not selected items in both list box.
LOCAL aSelected[1,1],loObj,i,j,ty[1,1],t,lcVal loObj=Thisform.cgpageframe1.page1 && copied selected items to my preferable array to handle =ACOPY(loObj.cuskind.aSelections,aSelected) i=ALEN(aSelected,1) lcVal='' FOR j=1 to i select code from cuskind where name=aSelected(j,1) into array ty IF _tally > 0 && i saved values like this..101103105..outlawed normalization..^^;; lcVal=IIF(LEN(ALLT(lcVal)) > 0,allt(lcVal)+allt(ty[1,1]),allt(ty[1,1])) ENDIF ENDFOR loObj.cusspec.value=lcVali only subclassed from _mover and didn't add or change my method