Access-控件解析-组合框-02-两个组合框联动

Private Sub cbo1_Change()  
    frmName = Me.Name
    Call sMod_通用库_01_零件名称下拉列表(frmName)
End Sub

Private Sub cbo1_Enter()  
    frmName = Me.Name
    Call sMod_通用库_01_零件名称下拉列表(frmName)
End Sub

Private Sub cbo1_KeyDown(KeyCode As Integer, Shift As Integer)  
    frmName = Me.Name
    Call sMod_通用库_01_零件名称下拉列表(frmName)
End Sub

Sub sMod_通用库_01_零件名称下拉列表(frmName)    
    Dim ctrl    
    Dim frm   
    Dim ctrlName        
    Set frm = Forms(frmName)        
    Set ctrl = frm.Controls("cbo1")  
    sheng = ctrl.Value       
    ctrlName = "cbo2"   
    Set cbo = frm.Controls(ctrlName)      
    If sheng = "广东" Then        
        cbo.RowSource = ""        
        cbo.Value = ""               
        arr = Array("广州", "深圳", "东莞", "佛山")       
        For Each x In arr           
            cbo.AddItem x       
        Next    
    ElseIf sheng = "湖南" Then       
        cbo.RowSource = ""       
        cbo.Value = ""               
        arr = Array("长沙", "湘潭", "株洲", "郴州")       
        For Each x In arr           
            cbo.AddItem x       
        Next   
    End If   
End Sub