从Access

Question

在Access中，我尝试从列表框中提取所选项目。

我还没有使用List Box对象一段时间，但我似乎记得你必须遍历所选项目，然后使用List方法提取它们。

我的研究支持这种认可，但我遇到了与使用List相关的问题 -

  

编译错误：找不到方法或数据成员

打印为每个选项返回的lstLocations.Selected(i)看到-1，List显然不存在，那么如何提取所选值？

Dim i As Integer
For i = 0 To lstLocations.ListCount - 1
    If lstLocations.Selected(i) Then
        Debug.Print lstLocations.List(i)
    End If
Next i

Answer 1

使用for each循环遍历所选项目。

之类的东西

        Dim item As Variant
        For Each item In Me.lbx_booking.ItemsSelected
            If Not (Nz(Me.lbx_booking.Column(0, item), "") = "") Then

            End If
        Next item