Excel VBA在多列combobox中select项目

我有一个combobox来填充来自Access数据库的信息。 我有一个使用ADO Recordset打开logging的方法。 我有一个多列combobox,我想从窗体上的填充列表中select一个值。 对于单列combobox,将使用value属性填充表单上显示的值,如下所示。

frmDataEntry.txtProcessID = sourceRS.Fields("ProcessID").Value 

由于Value属性不起作用,因此我在填充多列combobox时出现问题。

 Do Until y >= frmDataEntry.cmbProcess.listCount If frmDataEntry.cmbProcess.List(y, 0) = sourceRS.Fields("ProcessID").Value Then 'This is where i'd like to set the value End If y = y + 1 Loop 

在上面的代码中,如果这是一个列表框,我会使用.Selected(y) = True属性,但不适用于combobox。 有人有什么build议吗? 我到处search,但似乎无法find一种方法来做到这一点,而不消除组合列表中的combobox。

我不完全确定你想要做什么,但是如果你的问题显示一个已经添加的值, frmDataEntry.cmbProcess.ListIndex = y将为0 <= y < ListCount

通常这就是我所做的。 我把值放入一个数组然后做到这一点:

 Dim MyArray() As String 'Here you want to populate MyArray With Me.combobox1 .ColumnCount = 2 .BoundColumn = 2 .ColumnWidths = "2.5 in; 0 in" .List = MyArray End With