DOCUMENT:Q138779  03-AUG-1999  [foxpro]
TITLE   :HOWTO: Make a Lookup Combo Box in a Grid
PRODUCT :Microsoft FoxPro
PROD/VER:
OPER/SYS:
KEYWORDS:kbvfp300 kbvfp500 kbvfp600

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 5.0, 6.0 
 - Microsoft Visual FoxPro for Macintosh, version 3.0b 
-------------------------------------------------------------------------------

SUMMARY
=======

There are times when a developer may want to limit the user's choices for data
entry by using a lookup table in a combo box. This allows the user to pick a
value from a list and have it inserted into the data table. This article shows
how to use a combo box in a grid to let the users pick a state to be stored in a
State field. The combo box will show the state's full name but will only store
the two-letter abbreviation in the table.

MORE INFORMATION
================

If you are not familiar with creating tables, using the grid, or using combo box
controls, please see chapters 7 and 11 in the Developer's Guide.

Step-by-Step Example
--------------------

1. Create two tables by using the following commands:

    - 

      CREATE TABLE Friends (Name C(40), Address C(30), State C(2))

    - 

      CREATE TABLE States (Fullname C(20), Abbrev C(2))

2. Enter the following data in the States table:

      Full Name    Abbreviation
      -------------------------

      Alaska       AK
      Colorado     CO
      Florida      FL
      Idaho        ID
      Maine        ME
      Ohio         OH
      Texas        TX

3. Enter five records into the Friends table using State abbreviations from the
   States table.

4. Create a new form, and add the Friends and States tables to the data
   environment.

5. Drag the Friends table from the data environment to the form to create a
   grid.

6. Set the following properties for the grid:

   

         ColumnCount = 3
         Height = 200
         Width = 448
         RowHeight = 30

7. Right-click the grid, and click Edit. Select the ComboBox control from the
   Form Controls toolbar and place a combo box in the third column of the grid.

8. Set the following Properties for each column in the grid:

   

         Column1: ControlSource = Friends.Name
                  Width = 152
         Column2: ControlSource = Friends.Address
                  Width = 166
         Column3: ControlSource = Friends.State
                  Bound = .F.
                  Width = 93
                  CurrentControl = Combo1

9. Set the following Properties for the combo box in column 3:

   

         BoundColumn = 2
         ColumnCount = 2
         ColumnWidths = 75,0
         ControlSource = Friends.State
         RowSourceType = 6-Fields
         RowSource = States.Fullname,Abbrev
         Style = 2 - Dropdown List

10. Enter the following code in the GotFocus event of the combo box:

   

         IF !EMPTY(Friends.State)
           This.Value = Friends.State
         ELSE
           This.DisplayValue = This.List(1)
         ENDIF
         ** This lets you see the current state value in the combo box
         ** or if it is a new record it displays the first state in the list.

11. In the Init event of the form, enter the following line of code:

   

          ON KEY LABEL F10 APPEND BLANK IN Friends
          ** Allows you to enter new records in the Grid.

12. In the Destroy event of the form, enter the following line of code:

   

          ON KEY LABEL F10
   </ITEM>
   <ITEM>Save and run the Form.

When you enter the State field of the grid, you will see the combo box come up
with the name of the current state. If you change the state and move off of the
state field, you will see the new two letter abbreviation for the state. If you
press F10 to add a record and then move to the state field, you will see the
name of the first state displayed in the combo box.

Additional query words:

======================================================================
Keywords          : kbvfp300 kbvfp500 kbvfp600 
Technology        : kbHWMAC kbOSMAC kbVFPsearch kbAudDeveloper kbVFP300bMac kbVFP300 kbVFP500 kbVFP600
Issue type        : kbhowto

=============================================================================

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.

Copyright Microsoft Corporation 1999.