Ms access 使用access VBA将列表框项获取到数组_Ms Access_Vba

Ms access 使用access VBA将列表框项获取到数组

ms-access vba

Ms access 使用access VBA将列表框项获取到数组,ms-access,vba,Ms Access,Vba,我有一个访问表单中的列表框。它包含18个项目。如何使用access vba将这些ITME存储到数组中。以下内容将列表框的内容拉入数组，并将内容吐出 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) N

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

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

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