Microsoft Access技术问询：如何基于ComboBox选择项筛选List Box？

单条件筛选实现步骤 #

通过ComboBox的**更新后事件（After Update）**触发List Box的数据源刷新，核心是修改List Box的RowSource属性为带筛选条件的SQL语句：

1. 打开窗体的设计视图，选中目标ComboBox，右键选择事件生成器进入VBA编辑界面。
2. 编写如下代码（根据你的实际控件名、表名、字段名修改）：

Private Sub cboCategory_AfterUpdate()
    Dim strSQL As String
    ' 基础SQL，替换为你的表名和需要显示的字段
    strSQL = "SELECT ID, Name, Category FROM tblData"
    
    ' 若ComboBox已选择内容，添加筛选条件
    If Not IsNull(Me.cboCategory.Value) Then
        ' 字段为文本类型时加单引号，数字类型去掉单引号，日期类型用#包裹
        strSQL = strSQL & " WHERE Category = '" & Replace(Me.cboCategory.Value, "'", "''") & "'"
    End If
    
    ' 更新List Box数据源并刷新
    Me.lstRecords.RowSource = strSQL
    Me.lstRecords.Requery
End Sub

3. 保存代码后回到窗体视图测试：选择ComboBox的选项，List Box会自动显示符合条件的记录。

多条件筛选（可选，操作不复杂） #

如果需要多个ComboBox联合筛选，把筛选逻辑封装成通用子过程，让每个ComboBox的更新事件调用它即可：

1. 在窗体的VBA模块中添加通用筛选子过程：

Private Sub FilterListBox()
    Dim strSQL As String
    Dim strWhere As String
    
    ' 基础SQL语句
    strSQL = "SELECT ID, Name, Category, Status FROM tblData"
    
    ' 逐个判断ComboBox是否有选择，构建筛选条件
    If Not IsNull(Me.cboCategory.Value) Then
        strWhere = strWhere & " AND Category = '" & Replace(Me.cboCategory.Value, "'", "''") & "'"
    End If
    If Not IsNull(Me.cboStatus.Value) Then
        strWhere = strWhere & " AND Status = '" & Replace(Me.cboStatus.Value, "'", "''") & "'"
    End If
    ' 可继续添加更多ComboBox的判断逻辑
    
    ' 若存在筛选条件，去掉开头的" AND "并拼入SQL
    If strWhere <> "" Then
        strSQL = strSQL & " WHERE " & Mid(strWhere, 5)
    End If
    
    ' 更新List Box
    Me.lstRecords.RowSource = strSQL
    Me.lstRecords.Requery
End Sub

2. 为每个用于筛选的ComboBox添加更新后事件：

Private Sub cboCategory_AfterUpdate()
    FilterListBox
End Sub

Private Sub cboStatus_AfterUpdate()
    FilterListBox
End Sub

3. （可选）为窗体添加加载事件，确保打开窗体时自动执行一次筛选：

Private Sub Form_Load()
    FilterListBox
End Sub

关键注意事项 #

• 控件名、表名、字段名必须与你的数据库实际名称完全一致，避免拼写错误。
• 根据字段类型调整筛选条件的格式：文本加单引号，数字直接写值，日期用#包裹（例如#2024-01-01#）。
• 若ComboBox选项包含单引号（如O'Neil），用Replace函数转义避免SQL语法错误，即Replace(控件值, "'", "''")。

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