如何在SQL/Access中实现两个下拉列表的级联联动功能

你写的固定列WHERE条件的SQL无法直接生效，因为Access查询无法直接把控件选中的值解析为字段名，必须通过事件动态拼接数据源，完整实现步骤如下：

1. 校验第一个下拉框配置 #

将第一个选择列名的下拉框命名为cbo_Column，确认以下配置：

• 能正确返回目标表的所有字段名（如果你已经配置完成可跳过这步，未配置的话可以用系统表拉取字段，行来源写SELECT MSysFields.Name FROM MSysObjects INNER JOIN MSysFields ON MSysObjects.Id = MSysFields.Id WHERE MSysObjects.Name='你的目标表实际名称' ORDER BY MSysFields.Ordinal即可，不需要手动硬编码字段名）
• 绑定列设为1，确保选中后返回的值是纯字段名字符串

2. 配置第二个下拉框的动态加载逻辑 #

将第二个选择列值的下拉框命名为cbo_Value，不需要预先写死行来源，通过第一个下拉框的更新事件动态生成数据源：

1. 选中cbo_Column，打开属性表的「事件」选项卡，找到「更新后」事件，选择「事件过程」，点击右侧省略号进入VBA编辑器
2. 写入以下代码：

Private Sub cbo_Column_AfterUpdate()
    ' 清空上次选择的值
    Me.cbo_Value = Null
    ' 拼接去重值查询SQL，用方括号包裹字段名兼容带空格/特殊字符的字段名，过滤空值
    Me.cbo_Value.RowSource = "SELECT DISTINCT [" & Me.cbo_Column.Value & _
        "] FROM 你的目标表实际名称 WHERE [" & Me.cbo_Column.Value & "] IS NOT NULL " & _
        "ORDER BY [" & Me.cbo_Column.Value & "];"
    ' 刷新下拉框加载新数据
    Me.cbo_Value.Requery
End Sub

3. 保存VBA代码返回表单设计视图，设置cbo_Value的行来源类型为「表/查询」，列数为1即可。如果需要表单打开时就初始化第二个下拉框的值，把上述代码复制一份到表单的Load事件里即可。

3. 实现最终的数据筛选 #

两个下拉框选值后，给展示结果的子窗体/列表框加筛选逻辑，在cbo_Value的「更新后」事件里加以下代码：

Private Sub cbo_Value_AfterUpdate()
    Dim strFilter As String
    ' 拼接筛选条件，单引号转义避免文本值带单引号时报错
    strFilter = "[" & Me.cbo_Column.Value & "] = '" & Replace(Me.cbo_Value.Value, "'", "''") & "'"
    ' 假设展示数据的子窗体控件名为sub_Result，替换成你自己的控件名
    With Me.sub_Result.Form
        .Filter = strFilter
        .FilterOn = True
    End With
End Sub

注意事项：如果选中的列是数字类型，去掉筛选条件里值两侧的单引号即可；如果是日期类型，把单引号换成#。通用场景可以先判断字段类型再拼接条件，简单文本/数字混合场景可以先按上述代码跑通后再做适配。

内容的提问来源于stack exchange，提问作者ADOT_R2