How to Create a Multiple-Select Mover List Box Using Code

MORE INFORMATION

Step-by-Step Example

1. Create a new form, and add a table to the Data Environment.
2. Set the AutoOpenTables and the AutoCloseTables properties values in the Data Environment to false (.F.).
3. Place the following code in the Init event of the form:

      PUBLIC blist        && variable used in the Browse Button
      blist=''
      USE <tablename>
      FOR gnCount = 1 TO FCOUNT( )   && Loop for number of fields
         THISform.list1.ADDITEM(Field(gnCount))
      NEXT
   						

4. Place the following code in the Doubleclick event of the List1 box:

      Thisform.Lockscreen=.T.
      nCnt = 1
      DO WHILE nCnt <= Thisform.List1.ListCount
         IF Thisform.List1.Selected(nCnt)
            Thisform.List2.AddItem(Thisform.List1.List(nCnt))
            Thisform.List1.RemoveItem(nCnt)
         ELSE
            nCnt = nCnt + 1
         ENDIF
      ENDDO
      Thisform.Lockscreen=.F.
   						

5. Place the following code in the Doubleclick event of the List2 box:

      Thisform.Lockscreen=.T.
      nCnt = 1
      DO WHILE nCnt <= thisform.list2.ListCount
         IF Thisform.List2.Selected(nCnt)
            Thisform.List1.AddItem(Thisform.List2.List(nCnt))
            Thisform.List2.RemoveItem(nCnt)
         ELSE
            nCnt = nCnt + 1
         ENDIF
      ENDDO
      Thisform.Lockscreen=.F.
   						

6. Place the following code in the Click event of a command button to move a selection from List1 to List2 ( > ):

      Thisform.Lockscreen=.T.
      cnt=Thisform.List1.Listindex
      IF Thisform.List1.Selected(cnt) = .T.
        nCnt = 1
        DO WHILE nCnt <= Thisform.List1.ListCount
         IF Thisform.List1.Selected(nCnt)
           Thisform.List2.AddItem(Thisform.List1.List(nCnt))
           Thisform.List1.RemoveItem(nCnt)
         ELSE
           nCnt = nCnt + 1
         ENDIF
        ENDDO
      ELSE
        =MESSAGEBOX('Please Highlight Your Choice')
      ENDIF
   
      Thisform.Lockscreen=.F.
   						

7. Place the following code in the Click event of a command button to move all the values from the List1 to List2 ( >> ):

      Thisform.LockScreen = .T.
      FOR i = 1 to Thisform.List1.ListCount
         Thisform.List2.AddItem(Thisform.List1.List(i))
      ENDFOR
      Thisform.list1.Clear
      Thisform.LockScreen = .F.
   						

8. Place the following code in the Click event of a command button to move a selection from List2 to List1 ( < ):

      Thisform.Lockscreen=.T.
      cnt=Thisform.List2.Listindex
      IF Thisform.List2.Selected(cnt) = .T.
         nCnt = 1
      DO WHILE nCnt <= Thisform.List2.ListCount
       IF Thisform.List2.Selected(nCnt)
        Thisform.List1.AddItem(Thisform.List2.List(nCnt))
        Thisform.List2.RemoveItem(nCnt)
       ELSE
        nCnt = nCnt + 1
       ENDIF
      ENDDO
      ELSE
      =MESSAGEBOX('Please Highlight Your Choice')
      ENDIF
      Thisform.Lockscreen=.F.
   						

9. Place the following code in the Click event of a command button to move all the values from List2 to List1 ( << ):

      Thisform.LockScreen = .T.
      FOR i = 1 to thisform.list2.ListCount
        Thisform.List1.AddItem(Thisform.List2.List(i))
      ENDFOR
      Thisform.List2.Clear
      Thisform.LockScreen = .F.
   						

10. Place The Following Code In The Click event of a Browse button:

        blist=''
        bval=''
        Thisform.LockScreen = .T.
        FOR x = 1 to Thisform.List2.Listcount
          IF x=1
             blist=Thisform.List2.List(x)
          ELSE
             blist=','+Thisform.List2.List(x)
          ENDIF
             bval=bval+blist
        ENDFOR
        Thisform.LockScreen = .F.
        BROWSE FIELDS &bval
    						

11. Place the following code in the click event of an Exit button: USE Thisform.Release
12. Run the form.