Computer Programming Concepts and Visual Basic David I. Schneider

place an x in the check box next to “Microsoft Data Bound List Controls 6.0” for the other
two controls.)
■ USING THE FLEXGRID CONTROL
When you attach the FlexGrid control to a table via a data control, the FlexGrid control will
display the entire contents of the table, including the field names. If the table is too large to
be displayed in entirety, scroll bars will automatically appear to allow you to scroll to other parts
of the table. The FlexGrid control is discussed in Section 10.3. The gray fixed row at the top
will show the field names. You should set the FixedCols property to 0 to avoid having a blank
fixed column at the left. If some of the fields have long entries, you should widen the corresponding
columns with the ColWidth method in Form_Load. Although you can use code to
alter the contents of the cells in a FlexGrid (as shown in Section 10.3), changes in the cells of
the FlexGrid will not alter the contents of the database.
You can use an SQL statement to specify the fields displayed in a FlexGrid control. For
instance, if the control has datCities as its DataSource and the DatabaseName setting for
datCities is MEGACTY2.MDB, then the statement
datCities.RecordSource = “SELECT city, country FROM Cities”
causes the FlexGrid to display only the first two columns of the Cities table. The same effect
can be achieved at design time by setting the RecordSource property of datCities to
SELECT city, country FROM Cities
EXAMPLE 1
Creating and Designing Databases 339
The following program displays the contents of the Cities table of the MEGACTY2.MDB database. When
you click on the command button, the FlexGrid displays the cities, their countries, and currency. Also, the
caption of the command button changes to “Show City, Country, Populations”. The next time you click
the command button, the contents of the FlexGrid returns to its original state.
Object Property Setting
frm12_3_1 Caption Megacities
datCities Caption Large World Cities
Database MEGACTY2.MDB
Name
Record Cities
Source
msgCities Data datCities
Source
FixedCols 0
cmdShow Caption Show City,
Country,
Currency
Private Sub cmdShow_Click()
If cmdShow.Caption = “Show City, Country, Currency” Then ‘
Join the two tables and display cities, countries, and currency
datCities.RecordSource = “SELECT city, Cities.country, currency FROM “ & _
“Cities INNER JOIN Countries ON Countries.country = Cities.country “ & _
“ORDER BY city”
datCities.Refresh
cmdShow.Caption = “Show City, Country, Populations”
Else
datCities.RecordSource = “Cities”
datCities.Refresh
cmdShow.Caption = “Show City, Country, Currency”