如何在Microsoft Access中点击箭头时动态计算查询填充级联组合框？

针对你遇到的新行商品编码组合框不自动刷新的问题，可通过以下几个关键事件的代码调整来解决：

1. 利用表单Current事件同步新行的类别值 #

当表单切换到新行（或任意行）时，Current事件会触发，此时可以同步当前行的类别值到TempVar，并刷新商品编码组合框：

Private Sub Form_Current()
    ' 处理空行/新行的情况
    If Not IsNull(Me.cat_comb.Column(1)) Then
        TempVars("itemcat") = Me.cat_comb.Column(1)
    Else
        ' 新行无类别时，移除TempVar避免查询出错
        If TempVars.Exists("itemcat") Then
            TempVars.Remove "itemcat"
        End If
    End If
    ' 仅刷新商品编码组合框，比整表Requery更高效
    Me.itemcode_comb.Requery
End Sub

2. 优化类别组合框的AfterUpdate事件 #

原来的DoCmd.Requery会刷新整个表单，改为仅刷新目标组合框，提升操作流畅度：

Private Sub cat_comb_AfterUpdate()
    TempVars("itemcat") = Me.cat_comb.Column(1)
    Me.itemcode_comb.Requery
End Sub

3. 补充商品编码组合框的Enter事件（可选） #

为了确保用户点击商品编码框时，选项始终是最新的，可添加Enter事件的代码做双重保障：

Private Sub itemcode_comb_Enter()
    If Not IsNull(Me.cat_comb.Column(1)) Then
        TempVars("itemcat") = Me.cat_comb.Column(1)
        Me.itemcode_comb.Requery
    End If
End Sub

关键说明 #

• 之前用BeforeUpdate无效的原因是：该事件在用户输入商品编码并准备提交时才触发，时机太晚，无法提前刷新选项列表。
• 确保商品编码组合框的数据源查询正确引用TempVar，例如查询条件为WHERE 商品类别ID = TempVars!itemcat（根据你的实际字段名调整）。

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