Question

这是我的情况。没有找到任何可靠的来源。我需要从表单中的列表框中查询多个选择。 Qry是qryMetrics，表是指标，字段是职位描述，列表框是lstJobDesc，

我有ListBox，它显示了一个工作描述列表和一个运行查询的按钮。我可以选择一个作业描述并运行查询并返回我选择的1。我需要能够让用户选择多个值并返回所选值的查询。我知道如果选择了除None之外的其他任何内容，Multi Select将返回Null，但是如何在返回从表单中选择的多个值时获得扩展或简单工作，并在未选择任何内容时返回all？

Answer 1

'''Listbox - Multiselect property=Simple
Private Sub cmdOK_Click()
    Text = ""

    For i = 0 To Me.lstJobDesc.ListCount - 1
        If Me.lstJobDesc.Selected(i) Then
            Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine
        End If
    Next i

    If Text = "" Then
        For i = 0 To Me.lstJobDesc.ListCount - 1
            Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine
        Next i
    End If
    MsgBox Text
End Sub

在列表框中查询多个值

1 个答案: