去Datacolchanged、窗口AfterLoad事件,写代码
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").Text = Tables("表A").Compute("sum(数量)")
End If