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

正如上面的补充说明。让我们说我有一个区域列表框，用户选择不同的区域，然后此代码可用于从多选列表框HospCounty中选择医院，基于与所选区域匹配的第五列（4，从零开始计数）。

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

VBA将列表框设置为多个值

2 个答案: