Access雙擊組閤框自動依次顯示數據

2017-11-28 15:25:00
cg1
轉貼
1274

在Access組閤框控件中,我們點擊組閤框,下拉組閤框選擇數據。

這裡我們分享一箇選擇數據的技巧,雙擊組閤框,按組閤庫的行來源依次顯示數據


如下圖,雙擊組閤框,自動按順序切換字母,組閤框名爲“Combo0”


詳細源碼:

Private Sub Combo0_DblClick(Cancel As Integer)
    If Combo0.ListCount < 1 Then Exit Sub
    
    Dim I As Long
    I = Combo0.ListCount
    If Combo0.ListIndex < I - 1 Then
        Combo0.ListIndex = Combo0.ListIndex + 1
    Else
        Combo0.ListIndex = 0
    End If
End Sub

    分享