防止访问表格被刷新

Question

我有一个表单，我在其中使用了一个文本框来添加值，在AfterUpdate中，一个计算值被放到了其他文本框中。

但是表单被刷新，所有文本框的值都变成0或Null。

请帮助解决为什么会被刷新的问题。有什么方法可以阻止表单被刷新？

在一个文本框AfterUpdate中，我只是使用下面的代码来添加值。

Dim avlqty As Integer
Dim prqty As Integer

avlqty = Me.availqty.Value
prqty = Me.purqty.Value

Me.availqty.Value = avlqty + prqty
Me.totalqty.Value = prqty

Answer 1

你写的似乎是递归式的，如果avlqty = Me.availqty.Valueand Me.availqty.Value = avlqty + prqtythenMe.availqty.Value = Me.availqty.Value + prqty。