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