如何在MS Access中填充动态数组？

Question

我有一个动态数组，我想要附加值。要附加的值的数量不固定

我试图做这样的事情：

Dim array() As Integer
ReDim Preserve array(UBound(array)+1)
bulkJob(UBound(array) + 1) = Me.ID

我在ReDim Preserve array(UBound(array)+1)得到了下标范围错误。有没有办法做到这一点？

Answer 1

不太清楚你想要做什么，但这可以给你一些想法：

Public Function BuildJobs(Id As Integer)

    Static bulkJob()    As Integer
    Dim Upper           As Integer

    On Error Resume Next
    Upper = UBound(bulkJob) + 1
    On Error GoTo 0

    ReDim Preserve bulkJob(Upper)
    ' Fill in value.
    bulkJob(Upper) = Id

    ' Do something.
    Debug.Print UBound(bulkJob), bulkJob(Upper)

End Function

像这样“重启”数组：

ReDim bulkJob(0)
bulkJob(0) = 0