I have a form with 2 listboxes. Each listbox is populated by an array from a table ( tbl1 & tbl2 ). I have coded to move items from one list box to the other by double clicking on the item. This is working fine until I get to the last item. When I click on the last item it moves to the other listbox but is not removed from the first. Code sample below:
PROCEDURE LIST1.DBLCLICK
STORE THIS.DISPLAYVALUE TO MVAR
CLOSE DATA
SELE 1
USE TBL2
APPEND FROM TBL1 FOR SOMEVALUE = MVAR
SELE 2
USE TBL1 EXCL
DELE ALL FOR SOMEVALUE = MVAR
PACK
CLOSE DATA
THISFORM.LIST1.INIT
THISFORM.LIST2.INIT
ENDPROC
PROCEDURE list1.Init
select upper(FLD1) from TBL1 into array thisform.aSource
this.rowsource = "thisform.asource"
this.requery()
ENDPROC
PROCEDURE list2.Init
select upper(FLD1) from TBL2 into array thisform.aSource2
this.rowsource = "thisform.asource2"
this.requery()
ENDPROC
Here's to alcohol...the cause of ... and solution to ... all of life's problems - - Homer J. Simpson