Access多对多关系中子窗体组合框筛选仅显示ProgramID问题求助

看来你在Access里做联动组合框的时候遇到了不少坑，我帮你一步步理清问题并解决掉：

先揪出根源问题：连接表设计不合理 #

多对多关系的连接表不应该存显示字段（比如ProgramTitle、FundTitle），正确的做法是只存两个关联表的主键，这样既避免数据冗余，也能避免查找字段带来的混乱。你的tblPrgFund目前存了ProgramCode、ProgramTitle这些冗余字段，这是后续所有问题的源头，先把它改过来：

• 重构tblPrgFund：保留一个自动编号主键（比如PrgFundID），然后只加两个外键字段：ProgramID（关联tblProgram的ProgramID）、FundCodeID（关联tblFund的FundCodeID）
• 删掉原来的ProgramCode、ProgramTitle、FundCode、FundTitle字段，这些信息直接从关联表调取即可，不用存在连接表里。

第二步：正确设置两个组合框的属性 #

1. FundTitle组合框（子窗体里的基金选择框） #

给这个组合框起个好记的名字，比如cboFund，然后设置以下属性：

• 行来源：SELECT FundCodeID, FundTitle FROM tblFund ORDER BY FundTitle
• 绑定列：1（这个列对应FundCodeID，是要存到tblPrgFund里的实际关联值）
• 列数：2
• 列宽：0cm;5cm（把第一列的ID藏起来，只显示第二列的FundTitle）

2. ProgramTitle组合框（子窗体里的项目选择框） #

同样起个名字，比如cboProgram，设置基础属性：

• 行来源：先暂时设为SELECT ProgramID, ProgramTitle FROM tblProgram ORDER BY ProgramTitle（后续用VBA动态修改）
• 绑定列：1（存ProgramID到连接表）
• 列数：2
• 列宽：0cm;5cm（藏起ID，只显示ProgramTitle）

第三步：编写VBA实现联动筛选 #

相比在GotFocus事件里触发，我更推荐在cboFund的AfterUpdate事件里写代码——用户选完基金后立刻更新项目列表，体验更流畅：

Private Sub cboFund_AfterUpdate()
    ' 判断用户是否选择了基金
    If Not IsNull(Me.cboFund.Value) Then
        ' 动态生成SQL，筛选出当前基金关联的所有项目
        Me.cboProgram.RowSource = "SELECT p.ProgramID, p.ProgramTitle " & _
                                  "FROM tblProgram p INNER JOIN tblPrgFund pf ON p.ProgramID = pf.ProgramID " & _
                                  "WHERE pf.FundCodeID = " & Me.cboFund.Value & " " & _
                                  "ORDER BY p.ProgramTitle"
        ' 刷新组合框加载新数据
        Me.cboProgram.Requery
        ' 清空之前的项目选择，避免残留旧值
        Me.cboProgram.Value = Null
    Else
        ' 如果没选基金，显示所有项目
        Me.cboProgram.RowSource = "SELECT ProgramID, ProgramTitle FROM tblProgram ORDER BY ProgramTitle"
        Me.cboProgram.Requery
    End If
End Sub

另外，还要给子窗体的Current事件加代码，确保切换子窗体记录时，项目组合框能正确匹配当前的基金关联：

Private Sub Form_Current()
    If Not IsNull(Me.cboFund.Value) Then
        Me.cboProgram.RowSource = "SELECT p.ProgramID, p.ProgramTitle " & _
                                  "FROM tblProgram p INNER JOIN tblPrgFund pf ON p.ProgramID = pf.ProgramID " & _
                                  "WHERE pf.FundCodeID = " & Me.cboFund.Value & " " & _
                                  "ORDER BY p.ProgramTitle"
        Me.cboProgram.Requery
    End If
End Sub

为啥之前的代码不好用？ #

1. 连接表存了冗余的显示字段，导致你用FundCode做筛选时，关联的不是正确的主键，查出来的ProgramID自然不对；
2. 组合框的列数和列宽没设置，所以只显示了绑定的ProgramID，没显示ProgramTitle；
3. GotFocus事件触发时机太晚，不如AfterUpdate及时，用户体验差。

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