仅将组合框中的SELECTED字段插入临时表

Question

我创建了一个表单来拉入记录并在列表框中显示它们。我有一个“所有员工”的单选按钮，它可以选择所有这些，我可以创建一个报告，但我也有一个“选择员工”的单选按钮，所以我可以进入并选择我要报告的少数几个。问题是当我选择一些员工时，它仍然在输入临时表时循环遍历列表框中的所有记录。有没有一种简单的方法可以快速将所选项目插入临时表？

任何帮助都会受到赞赏，即使是一个听起来可能有用的链接。

Answer 1

您需要遍历.ItemsSelected并通过.ItemData(selectedItem)检索所选项目的值：

Dim selectedItem As Variant

With Me.YourListBoxControlName  
    For Each selectedItem In .ItemsSelected
        MsgBox .ItemData(selectedItem) 
    Next
End With