How to capture input in a combo box in Visual FoxPro

MORE INFORMATION

1. Create a new form, and place the following code in its Load event procedure:

         PUBLIC ARRAY aTitle(1)
         SELECT DISTINCT(customer.contact) FROM customer ;
            INTO ARRAY aTitle
   							

2. Add the customer table from the \Data directory to the Data Environment of the form. You can find the \Data directory in one of the following locations:

      Visual FoxPro 3.x: VFP\Samples\Mainsamp
      Visual FoxPro 5.x: VFP\Samples
      Visual FoxPro 6.0: \MSDN98\98VS\1033\Samples
      Visual FoxPro 7.0,8.0,9.0: \Samples\Data
   							

3. Place a text box on the form, and set its ControlSource property to:

         Customer.Contact
   							

4. Place a combo box on the form. Set its RowSource property to aTitle and its RowSourceType property to 5 - Array.
5. In the InteractiveChange procedure, type the following lines of code:

         IF Customer.Contact != Thisform.combo1.DisplayValue
            REPLACE Customer.Contact WITH Thisform.combo1.DisplayValue
            Thisform.Text1.Refresh
            SELECT DISTINCT(customer.contact) FROM customer ;
               INTO ARRAY aTitle
         ENDIF
   							

6. In the LostFocus procedure, type the following lines of code:

         IF Customer.Contact != Thisform.combo1.DisplayValue
            REPLACE Customer.Contact WITH Thisform.combo1.DisplayValue
            Thisform.Text1.Refresh
            SELECT DISTINCT(customer.contact) FROM customer ;
               INTO ARRAY aTitle
         ENDIF
         thisform.combo1.displayvalue=""
   							

7. Add a command button to the form, and type the following code into its Click event procedure:

         SKIP
         ThisForm.Combo1.DisplayValue=Customer.Contact
         ThisForm.Refresh
   							

8. Add another command button to the form, and place the following code in its Click event procedure:

         SKIP -1
         ThisForm.Combo1.DisplayValue=Customer.Contact
         ThisForm.Refresh
   							

9. Save and run the form. Change the value in the combo box, and skip through the table using the command buttons. Close the form, and browse the Customer table. Look at the Contact field. The changes entered in the combo box will be reflected in the field.