vba - ms 访问 vba 动态数组 - 为什么这不起作用？

Question

我有一个带有名为的文本框txtInput和一个按钮名称的访问表单btnAdd。

下面是按钮点击事件的子过程；每次用户在文本框中输入一些文本并单击按钮时，它应该将文本字符串添加到动态数组中。

Public Sub btnAdd_Click()
    Dim equipArray() As String
    Dim ctr As Integer

    ctr = 0
    Do While txtInput <> "stop"        
        ReDim Preserve equipArray(x)
        equipArray(x) = txtInput
        ctr = ctr + 1
    Loop

End Sub

但它不起作用，有人可以帮忙吗？

Answer 1

每次单击按钮时它都会重新创建数组。在重新创建它之前，您不会保留它。最好的办法是在表单上放置一个隐藏的文本框并将值写入该文本框，然后在某些事件（表单关闭？无论您想要什么）上，您可以将该文本框中的值写入您的表格。