我有几个子表格的表格 .

当用户更改位于主窗体中的组合框值时，我希望使用Requery方法刷新每个子窗体 . 它按我的意愿工作 .

除了其中一个子表单 . 我正在添加一个列表框，并将一个文本框放入SUM列表框中的一列 .

我创建了vba代码来计算列 . 将代码放在子窗体的Current事件中，以及子窗体中的其他几个事件 . 同样在listbox AfterUpdate事件中 . 但它似乎没有用 .

Dim i, j As Integer
Dim ctl As Control

Set ctl = Me.lstBox

j = ctl.ListCount - 1

Me.txtTotal = 0

For i = 1 To j
    Me.txtTotal = Me.txtTotal + ctl.Column(3, i)
Next i

Me.txtTotal = Format(Me.txtTotal, "#,##")

在子过程名称中添加断点（例如Form_Current等），但似乎没有启动 . 我应该把这段代码放在哪里？

编辑我尝试将代码放在ComboBox AfterUpdate事件中，它工作正常 . 但如果有另一种方法，我仍然可以投票 .

vba ms-access listbox access-vba