如何在VBA中修复MS Access窗体Combobox报错问题

问题根因 #

值列表（Value List）模式下的Access组合框不支持直接接收数组作为赋值对象，你触发“Object Doesn't Support Method”错误，本质是调用了组合框对象不存在的数组赋值相关方法，和你使用的数组类型无关。

正确实现方式 #

方案1：数组转分隔字符串直接赋值（适合单列组合框） #

值列表模式下组合框的RowSource属性接受分号分隔的字符串作为选项源，你可以用Join方法把数组直接拼接为符合要求的字符串赋值即可，示例代码：

Dim arrSort As Variant
' 你的自定义选项数组
arrSort = Array("正序排列", "倒序排列", "按姓名排序", "按日期排序")

' 清空原有选项
Me.cbSortOrder.Clear
' 数组转分号分隔字符串赋值给行来源
Me.cbSortOrder.RowSource = Join(arrSort, ";")
' 确保行来源类型为值列表，可提前在属性面板设置省略这行
Me.cbSortOrder.RowSourceType = "Value List"

方案2：循环调用AddItem方法（适合多列组合框） #

如果你的组合框是多列配置，需要逐行添加多列内容，可以用循环遍历数组调用AddItem方法实现：

Dim arrSort As Variant
' 示例为两列选项，第一列是显示文本，第二列是实际值
arrSort = Array("正序排列;ASC", "倒序排列;DESC", "按姓名排序;NAME", "按日期排序;DATE")

Me.cbSortOrder.Clear
Dim i As Integer
For i = LBound(arrSort) To UBound(arrSort)
    Me.cbSortOrder.AddItem arrSort(i)
Next i

附相关截图 #

内容的提问来源于stack exchange，提问作者stain