Access VBA:根据非绑定列在组合框中查找项目

Question

我在Access表单上有一个两列组合框,表示键到代码映射.组合框的第一列是"绑定列"(即MyComboBox.Value调用时使用的列).

我需要Value根据第二列中的值动态设置我的组合框.例如,如果我的组合框源是:

Value | Code
===============
 A1    | ABCD
 A2    | EFGH
 A3    | IJKL

我可以简单地设置组合框的值ComboBox.Value = "A2",但是如何使用第二列进行相同的操作？ComboBox.Value = "EFGH"显然是无效的.基本上寻找逻辑沿线ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 1

并假设它不是基于表/查询:

Dim i As Integer

For i = 0 To ComboBox.ListCount-1
    If ComboBox.Column(1, i) = "EFGH" Then
        ComboBox.Value = ComboBox.ItemData(i)
        Exit For
    End If
Next i