ms-access - Access VBA : Find item in combo box based on non-bound column

Question

我在 Access 表单上有一个两列组合框，表示键到代码的映射。组合框的第一列是“绑定(bind)列”(即调用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