Access365中实现组合框联动：根据首框切换次框数据源

核心思路 #

Access里不能直接给组合框绑定不同的表对象，正确的做法是动态修改试剂组合框的RowSource属性，用SQL语句指定对应仪器的试剂数据源。

具体实现步骤 #

1. 确认试剂表结构 #

确保所有仪器的试剂表（比如DxC1、DxC2等）有统一的字段名，比如都用Reagents存储试剂名称，这样SQL语句可以统一写法，减少代码复杂度。

2. 编写Instrument组合框的AfterUpdate事件代码 #

打开表单的VBA编辑器（Alt+F11），找到Instrument组合框的AfterUpdate事件，写入以下代码：

Private Sub instrument_AfterUpdate()
    ' 清空试剂组合框的现有内容
    Me.Reagent = Null
    Me.Reagent.RowSource = ""
    
    ' 根据选中的仪器设置对应数据源
    Select Case Me.Instrument.Value
        Case "DxC 1"
            Me.Reagent.RowSource = "SELECT Reagents FROM DxC1 ORDER BY Reagents"
        Case "DxC 2"
            Me.Reagent.RowSource = "SELECT Reagents FROM DxC2 ORDER BY Reagents"
        ' 依次添加剩下11台仪器的判断
        Case "仪器3名称"
            Me.Reagent.RowSource = "SELECT Reagents FROM 仪器3表名 ORDER BY Reagents"
        ' ... 其他仪器的Case
        Case Else
            ' 未选中有效仪器时清空数据源
            Me.Reagent.RowSource = ""
    End Select
    
    ' 设置组合框显示属性（按需调整）
    Me.Reagent.ColumnCount = 1 ' 显示1列
    Me.Reagent.BoundColumn = 1 ' 绑定第一列作为选中值
    
    ' 刷新组合框加载新数据
    Me.Reagent.Requery
End Sub

3. 表单初始化设置（可选） #

在表单的Form_Load事件里添加代码，确保打开表单时试剂组合框是空的：

Private Sub Form_Load()
    Me.Reagent.RowSource = ""
    Me.Reagent = Null
End Sub

优化建议（数据库设计层面） #

目前你用13个独立的试剂表，后续维护会很麻烦（比如要加字段就得改13张表）。更规范的做法是合并成一张统一的试剂表，增加一个InstrumentName字段区分仪器，比如表结构：

这样代码可以简化成：

Private Sub instrument_AfterUpdate()
    Me.Reagent = Null
    If Me.Instrument.Value <> "" Then
        Me.Reagent.RowSource = "SELECT ReagentName FROM 统一试剂表 WHERE InstrumentName = '" & Me.Instrument.Value & "' ORDER BY ReagentName"
    Else
        Me.Reagent.RowSource = ""
    End If
    Me.Reagent.ColumnCount = 1
    Me.Reagent.BoundColumn = 1
    Me.Reagent.Requery
End Sub

这种设计更符合数据库规范化，后续新增仪器或修改字段都更方便。

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