VBA如何根据表字段值自动选中Listbox列表框对应选项

问题背景 #

• 绑定数据表的窗体中放置Listbox列表框控件，关联数据表存在Functional Area字段，该字段根据用户办公室标识自动填充
• 列表框数据源为全量可用功能区选项，需求为：窗体加载时自动默认选中当前用户对应的功能区项，同时保留用户手动切换选择其他选项的操作权限
• 现有代码固定选中列表框索引为0的首项，无法实现匹配用户所属功能区的逻辑，现有代码如下：

'Detect Office
Me.Office = DLookup("[Office]", "*Local - User List - Active Directory", "[UserID] =" & "'" & Me.UserID & "'")

'Detect Function
Me.Function = DLookup("[Functional Area]", "0 - Active User - Funtional Area")
Me.[Functional Area] = Me.Function

'Set Listbox Value
Me!LetterSourceListBox.Selected(0) = True
Me.Refresh

• 核心诉求：定位列表框中与目标功能区值匹配的行号，通过代码完成对应项的选中操作。

实现方案 #

方案1：直接赋值（单选列表框首选，无需遍历索引） #

单选模式的列表框不需要手动查找行号操作Selected属性，直接将目标值赋值给列表框控件即可，Access会自动匹配数据源选中对应项，不会影响用户后续手动修改选择。
将原有代码中Me!LetterSourceListBox.Selected(0) = True替换为以下代码即可：

' 直接赋值，自动匹配选中对应项
Me!LetterSourceListBox.Value = Me.[Functional Area]

注意：使用该方法需要确认列表框的「绑定列（Bound Column）」属性设置为存储功能区值的列，列数与数据源字段对应关系正确。

方案2：遍历匹配索引（需定位行号/多选列表框场景适用） #

如果需要获取匹配项的具体行号（例如实现联动高亮、多选列表默认选中逻辑等场景），可以遍历列表框的ItemData集合匹配目标值，再设置对应索引的选中状态，代码如下：

Dim i As Long
Dim targetVal As String
targetVal = Nz(Me.[Functional Area], "") ' 读取目标功能区值，处理空值避免运行报错

' 清空列表框原有选中状态
Me!LetterSourceListBox = Null

' 遍历列表框所有项匹配目标值
For i = 0 To Me!LetterSourceListBox.ListCount - 1
    ' 统一转为文本对比，避免数据类型不一致导致匹配失败
    If CStr(Nz(Me!LetterSourceListBox.ItemData(i), "")) = CStr(targetVal) Then
        Me!LetterSourceListBox.Selected(i) = True
        Exit For ' 找到匹配项后立即退出循环，减少不必要的遍历
    End If
Next i

注意事项 #

• 上述逻辑需要写在窗体的Load事件中，不要写在Open事件中：Open事件执行时控件尚未完成数据绑定，容易出现匹配失败的问题
• 赋值完成后不需要额外调用Me.Refresh，控件和窗体会自动更新显示状态
• 如果列表框为多列结构，ItemData(i)默认取绑定列的值，若需要匹配其他列的显示值，将ItemData(i)替换为Column(列索引, i)即可，列索引从0开始计数。

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