使用访问VBA将列表框项目添加到阵列

Question

我在访问表单中有一个列表框。它包含18项。如何使用access vba将这些itmes存储到数组中。

Answer 1

以下内容将列表框的内容拉入数组并吐出内容。

Dim Size As Integer
Size = Me.List0.ListCount - 1
ReDim ListBoxContents(0 To Size) As String
Dim i As Integer

For i = 0 To Size
    ListBoxContents(i) = Me.List0.ItemData(i)
Next i

For i = 0 To Size
    MsgBox ListBoxContents(i)
Next i