为多选组合框提供默认（一组）值）

Question

我目前正在使用多选组合框为查询指定过滤器（将继续生成报告）。

除了在加载表单时我想为每个组合框指定默认值这一事实外，我还能正常工作。

似乎使用属性面板中的内置默认框不接受多个值（或者我不知道如何赋予它多个值）

我尝试使用控件的Selected属性在运行时选择我想要的值：

For i = 0 To Me.MyComboBox.ListCount - 1
    Me.MyComboBox.Selected(i) = True
    Debug.Print Me.MyComboBox.Selected(i)      'Returns false
Next i

但不幸的是，这不起作用。它不会给出错误或任何错误，但设置它似乎不会改变值。

有没有人知道如何实现这个目标？我基本上希望在每个组合框旁边都有一个“全部”按钮，用于选择组合框中的所有值，因此最好采用VBA方法解决问题，这对我有利。

非常感谢任何帮助

Answer 1

在设置Selected属性之前添加以下内容：

MyCombobox.SetFocus
MyCombobox.ListIndex = 0