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

【问题标题】：ms access vba dynamic array -- why won't this work?ms 访问 vba 动态数组 - 为什么这不起作用？
【发布时间】：2015-10-29 10:34:05
【问题描述】：

我有一个访问表单，其中包含一个名为 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

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

【问题讨论】：

如果按下按钮时假设只是将文本框值添加到数组中，为什么要循环？

标签： vba dynamic-arrays

【解决方案1】：

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

【讨论】：