要不在DataColchanged事件设置代码:
If Forms("xxx").Opend then
Forms("xxx").Controls("Label1").Text = e.DataTables.Compute("Sum(数量)",.....)
End If