赵刚老师《Access经典combobox多级联动》推荐网友们学习

EH2003

无从入手，请教各位高手帮忙一下，在附件实例上做个启发，谢谢
！如何从access中，在窗体实现combobox多级联动？同时实现combobox3列表时显示多列姓名+性别。

[ 本帖最后由 EH2003 于 2011-3-19 11:20 编辑 ]

zhaogang1960

短信收到，请在2007中运行：
Dim cnn As New ADODB.Connection
Dim SQL As String, arr

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = -1 Then
        ComboBox2.Clear
        Exit Sub
    End If
    On Error Resume Next
    SQL = "Select distinct 省市 from 表 where 区域='" & ComboBox1.Value & "'"
    arr = cnn.Execute(SQL).GetRows
    ComboBox2.List = WorksheetFunction.Transpose(arr)
    ComboBox2.ListIndex = -1
    ComboBox3.Clear
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.ListIndex = -1 Then
        ComboBox3.Clear
        Exit Sub
    End If
    On Error Resume Next
    SQL = "Select distinct 姓名 from 表 where 省市='" & ComboBox2.Value & "'"
    arr = cnn.Execute(SQL).GetRows
    ComboBox3.List = WorksheetFunction.Transpose(arr)
    ComboBox3.ListIndex = -1
End Sub

Private Sub UserForm_Initialize()
    On Error Resume Next
    cnn.Open "Provider=microsoft.ACE.oledb.12.0;Data Source =" & ThisWorkbook.Path & "\数据库.accdb"
    SQL = "Select distinct 区域 from 表"
    arr = cnn.Execute(SQL).GetRows
    ComboBox1.List = WorksheetFunction.Transpose(arr)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

Combobox控件多级有效性.rar (52.36 KB, 下载次数: 464)

2011-3-19 03:35 上传

点击文件名下载附件

lhsh36183

能不能转换成2003年版本的，学习学习。

EH2003

谢谢，zhaogang1960 大师这么晚还帮我解决问题。

zhaogang1960

原帖由 lhsh36183 于 2011-3-19 10:05 发表
能不能转换成2003年版本的，学习学习。

换成2003年版本程序有点变化，已注释：
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim SQL As String, arr

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = -1 Then
        ComboBox2.Clear
        Exit Sub
    End If
    On Error Resume Next
    SQL = "Select distinct 省市 from 表 where 区域='" & ComboBox1.Value & "'"
    arr = cnn.Execute(SQL).GetRows
    ComboBox2.List = WorksheetFunction.Transpose(arr)
    ComboBox2.ListIndex = -1
    ComboBox3.Clear
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.ListIndex = -1 Then
        ComboBox3.Clear
        Exit Sub
    End If
    On Error Resume Next
    SQL = "Select distinct 姓名 from 表 where 省市='" & ComboBox2.Value & "'"
    arr = cnn.Execute(SQL).GetRows
    ComboBox3.List = WorksheetFunction.Transpose(arr)
    ComboBox3.ListIndex = -1
End Sub

Private Sub UserForm_Initialize()
    On Error Resume Next
'    cnn.Open "Provider=microsoft.ACE.oledb.12.0;Data Source =" & ThisWorkbook.Path & "\数据库.accdb" '2007格式
    cnn.Open "Provider=microsoft.jet.oledb.4.0;Data Source =" & ThisWorkbook.Path & "\数据库.mdb" '2003
    SQL = "Select distinct 区域 from 表"
    arr = cnn.Execute(SQL).GetRows
    ComboBox1.List = WorksheetFunction.Transpose(arr)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

Combobox控件多级有效性2003.rar (36.16 KB, 下载次数: 262)

2011-3-19 14:10 上传

点击文件名下载附件

JLF2003

学习楼主的新思维。

YincyHe

zhaogang1960 发表于 2011-3-19 03:35

老师，我这用10版的打开macro就丢失了，这是怎么回事儿呢

zhaogang1960

YincyHe 发表于 2013-10-7 14:25
老师，我这用10版的打开macro就丢失了，这是怎么回事儿呢

不是丢失了，是你没有找到，Alt+F11可以看到代码，请看演示：