How To Capture Input in a Combo Box

Last reviewed: October 17, 1996
Article ID: Q140652
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, versions 3.0, 5.0
  • Microsoft Visual FoxPro for Macintosh, version 3.0b

SUMMARY

Visual FoxPro allows you to use combo boxes in Forms to select or input data within the form. Combo boxes allow data to be derived from several sources: value, alias, SQL statements, queries, arrays, fields, files, structures, and popups. This article shows an example of how to input information that may not be contained in the ComboBox drop down and change a field value in a table with the value entered in the combo box.

MORE INFORMATION

The steps below will demonstrate how to input data into a ComboBox and store it to a field in a table if the value has changed:

  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 Vfp\Samples\Mainsamp\Data to the Data Environment of the form.

  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.

REFERENCES

For additional information about this topic, please see the following article in the Microsoft Knowledge Base:

   ARTICLE-ID: Q139769
   TITLE     : How To Add a New Value to a List of Values in a Combo Box


Additional reference words: 5.00 VFoxMac 3.00b 3.00 VFoxWin
KBCategory: kbtool kbhowto kbcode
KBSubcategory: FxtoolFormdes


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: October 17, 1996
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.