问题描述
这有效:
Dim list(9)
但这不会:
max_value = 9
Dim list(max_value)
如何使用另一个整数变量 (max_value) 设置此数组变量的限制?我需要这样做,因为 list() 的限制将是数据库中自动递增值的最大值。
或者,是否可以不设置任何限制?还是我应该将 999999 设置为限制?
解决方法
如果您先创建一个空数组,则可以使用变量重新调整限制。
https://www.vbsedit.com/html/5c12ce79-6616-4144-b3b6-4cffe3884dfd.asp
Dim list()
max_value = 9
ReDim list(max_value)
list(0) = "bread"
list(1) = "cereal"
list(2) = "milk"
Msgbox list(1)