access組合框聯(lián)動(dòng)示例，通過(guò)類別篩選產(chǎn)品

在組合框中選中一個(gè)內(nèi)容后，希望下一個(gè)組合框的內(nèi)容是關(guān)于上一個(gè)組合框的內(nèi)容。就是我們說(shuō)的組合框聯(lián)動(dòng)。

比如說(shuō)選擇了省份后，下一個(gè)組合框篩選出屬于該省份的市，選擇了貨物類別后，下一個(gè)組合框篩選出該類別的產(chǎn)品

有網(wǎng)友咨詢了這個(gè)比較常用的功能，如選中洗發(fā)水后，自動(dòng)篩選出有屬于洗發(fā)水的商品

在組合框的更新后事件中添加代碼，通過(guò)sql語(yǔ)句篩選出數(shù)據(jù)再作為下一個(gè)組合框的數(shù)據(jù)源

Private Sub cbo1_AfterUpdate()
    Dim strSQL As String    
    strSQL = "Select 商品名稱 From 生活用品  Where 類別 = '" & Me.類別 & " '" 
    商品名稱.SetFocus 
    商品名稱 = ""
    商品名稱.RowSourceType = "Table/Query"
    商品名稱.RowSource = strSQL  '設(shè)置組合框的數(shù)據(jù)源
    商品名稱.ListRows =5
    商品名稱.Dropdown  '自動(dòng)下拉列表
End Sub