将 DataList 控件的 BoundColumn 属性设置为 SupplierID。
BoundColumn 属性被设为 Suppliers 表中的第二个字段。在本例中，这个属性就被设为 SupplierID 字段。当单击 DataList 控件时，BoundText 属性返回于在 DataList 控件中所显示的公司相关联的 SupplierID 字段的值。这个值将用于对 Products 表的查询，该查询为 DataGrid 控件提供数据。
将 DataGrid 控件的 DataSource 属性设置为 adoProducts。
DataSource 属性为该控件指定数据源。在本例中，该属性被设置为名为 adoProducts 的 ADO Data 控件，这将返回 Products 表中的所有记录。
在窗体的代码模块中，添加下述内容：
Private Sub Datalist1_Click()
' 声明一个用来包含新查询的字符串变量。这个新的
' 查询使用 DataList 控件的BoundText属性
' 来提供一个 SupplierID 值。新查询查找所有
' 具有相同的 SupplierID 的产品。这个查询被
' 指定给名为 adoProducts 的 ADO Data 控件
' 的 RecordSource 属性。在刷新控件后，DataGrid
' 将使用包含由同一个公司供应的所有产品的新。
' 记录集来更新。
Dim strQuery As String
strQuery = "Select * FROM Products WHERE SupplierID = " & _
Datalist1.BoundText
With adoProducts
.RecordSource = strQuery
.Refresh
End With
With DataGrid1
.ClearFields
.ReBind
End With
End Sub
运行该工程。
单击 DataList 控件中的任意的公司名称，将自动用该公司所供应的产品更新 DataGrid 控件。
责任编辑：cyth
