无法让级联组合框工作
Can't get the cascading combo boxes to work
我正在尝试制作级联组合框,但我似乎无法让它工作。例如,如果我在第一个组合框中 select 一台特定的计算机,那么第二个组合框应该只显示与该计算机兼容的 HDD。我还为我创建的数据库提供了一个 link。谁能帮我解决这个问题?
我有 2 个表的字段:
- tblComputer(计算机)
- tblHDD(硬盘,计算机)
cboxComputer 行来源: SELECT tblComputer.Computer 来自 tblComputer;
cboxHDD 行来源: SELECT tblHDD.HDD,tblHDD.Computer 来自 tblHDD;
Private Sub cboxComputer_AfterUpdate()
Me.cboxHDD.RowSource = "SELECT HDD " & _
"FROM tblHDD " & _
"WHERE Computer = " & Nz(Me.cboxComputer) & _
"ORDER BY HDD"
End Sub
https://drive.google.com/file/d/0Bye-M8FI1tRURmQ0MEFzRjBCdWM/view?usp=sharing
数据库中的计算机字段是字符串数据类型。尝试像这样在名称周围加上撇号:
Private Sub cboxComputer_AfterUpdate()
Me.cboxHDD.RowSource = "SELECT HDD " & _
"FROM tblHDD " & _
"WHERE Computer = '" & Nz(Me.cboxComputer) & "' " & _
"ORDER BY HDD"
End Sub
我正在尝试制作级联组合框,但我似乎无法让它工作。例如,如果我在第一个组合框中 select 一台特定的计算机,那么第二个组合框应该只显示与该计算机兼容的 HDD。我还为我创建的数据库提供了一个 link。谁能帮我解决这个问题?
我有 2 个表的字段:
- tblComputer(计算机)
- tblHDD(硬盘,计算机)
cboxComputer 行来源: SELECT tblComputer.Computer 来自 tblComputer;
cboxHDD 行来源: SELECT tblHDD.HDD,tblHDD.Computer 来自 tblHDD;
Private Sub cboxComputer_AfterUpdate()
Me.cboxHDD.RowSource = "SELECT HDD " & _
"FROM tblHDD " & _
"WHERE Computer = " & Nz(Me.cboxComputer) & _
"ORDER BY HDD"
End Sub
https://drive.google.com/file/d/0Bye-M8FI1tRURmQ0MEFzRjBCdWM/view?usp=sharing
数据库中的计算机字段是字符串数据类型。尝试像这样在名称周围加上撇号:
Private Sub cboxComputer_AfterUpdate()
Me.cboxHDD.RowSource = "SELECT HDD " & _
"FROM tblHDD " & _
"WHERE Computer = '" & Nz(Me.cboxComputer) & "' " & _
"ORDER BY HDD"
End Sub