在本示例中,用 SQL 语句的结果填充第二个组合框。 该 SQL 语句查找 CategoryID 与第一个组合框中所选类别匹配的所有产品。
只要第一个组合框中选择了类别,其 AfterUpdate 事件过程就会设置第二个组合框的 RowSourceType 属性。 这样会刷新第二个组合框中的可用产品列表。 如果没有此过程,则第二个组合框中的内容将不会发生改变。
代 码:
Private Sub cboCategories_AfterUpdate()
' 更新 cboProducts 组合框的行来源
' 当用户在 cboCategories 中进行选择时
' 组合框.
Me.cboProducts.RowSource = "Select ProductName FROM" & _
" tblProducts Where CategoryID = " & Me.cboCategories & _
" orDER BY ProductName"
Me.cboProducts = Me.cboProducts.ItemData(0)
End Sub