ms-access - VBA将列表框设置为多个值

Question

我在 Access 中有一个列表框，其中多选值设置为 true。我希望能够通过 VBA 代码设置选定的值。我该怎么做呢？

Answer 1

使用该.Selected方法，并传递您要选择的项目的索引值。

'Populate the listbox (probably you are doing this elsewhere):

'Select items items 1 and 2 (remembering ListBox is 0-index, so this selects the 2nd and 3rd items in the list:
ListBox1.Selected(1) = True
ListBox1.Selected(2) = True

另外，请确保.MultiSelect = fmMultiSelectMulti或.MultiSelect = fmMultiSelectExtended。

Answer 2

正如对上述内容的补充说明。假设我有一个区域列表框，用户在其中选择各个区域，那么此代码可用于根据与所选区域匹配的第五列（4，从零开始计数）从多选列表框 HospCounty 中选择医院。

For Each itm In Me.Region.ItemsSelected
    For i = 0 To Me.HospCounty.ListCount - 1
        If Trim(Me.HospCounty.Column(4, i)) = Trim(Me.Region.Column(0, itm)) Then
            Me.HospCounty.Selected(i) = True
        End If
    Next
Next