ReDim保留错误

Question

我正在尝试重新保存二维数组.在我的代码的最顶端,我有:

Dim BayQuestionArray() As Variant
Dim numberofbay As Double

我有两个按钮,第一个按钮用于初始化数组大小:

numberofbay = 1
ReDim Preserve BayQuestionArray(numberofbay, 37)

第二个按钮用于升大数组

ReDim Preserve BayQuestionArray(numberofbay + 1, 37)

第二个按钮不起作用,它一直给我一个错误说运行时错误9下标超出范围.为什么？

Answer 1

当使用保留调整大小的数组变量(声明为例如,而不是作为变型),则可以仅改变上边界的的最后一维.您需要转置数组,或使用锯齿状数组或其他结构,如Dictionary/Collection.