使用Access VBA将列表框项目添加到数组

Question

我在访问表单中有一个列表框。它包含18个项目。如何使用Access VBA将这些主题存储到数组中。

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