MS Access VBA中获取组合框隐藏列值的技术问题咨询

嘿，我来帮你捋捋这个问题！你说的场景我太熟了——ComboBox设了两列，第一列藏起来（列宽0;1），想在用户选中行时拿到隐藏列的值，还不想改BoundColumn属性，之前试写WHERE子句没成功对吧？咱们先说说WHERE子句可能出的问题，再给你直接用VBA实现的靠谱方法。

为啥你的WHERE子句没生效？ #

一般用WHERE子句踩坑，大概率是这几个原因：

• 匹配逻辑有问题：比如你用ComboBox显示列的Value去查数据源，但如果显示列有重复值，WHERE子句会返回好几条结果，根本没法精准定位用户选中的那一行；
• 字段名/数据源引用错了：要是ComboBox绑定的是查询或表，你写WHERE子句时字段名和数据源里的不一致，或者没指定表名，自然查不到东西；
• 绕远路了：其实ComboBox本身就提供了直接取选中行列值的属性，完全没必要绕去写查询，这反而容易出问题。

直接用VBA拿隐藏列值的正确姿势 #

不用改BoundColumn的话，有两种简单又可靠的方法：

方法1：用Column属性（最直接） #

ComboBox的Column属性可以直接按列索引取值，注意索引是从0开始的！你的隐藏列是第一列，所以索引是0，显示列是1。

比如在ComboBox的AfterUpdate事件里写这段代码：

Private Sub cboYourComboBox_AfterUpdate()
    ' 先检查有没有选中项，避免报错
    If Me.cboYourComboBox.ListIndex <> -1 Then
        Dim hiddenValue As Variant
        ' 取第一列（隐藏列）的值，Column(0)对应第一列
        hiddenValue = Me.cboYourComboBox.Column(0)
        ' 这里可以换成你需要的操作，比如赋值给变量、写入文本框等
        MsgBox "隐藏列的值是：" & hiddenValue
    End If
End Sub

不管你的ComboBox是绑定到查询/表，还是手动用AddItem加的选项，这个方法都能生效，超级实用。

方法2：用List属性（适合手动添加的列表项） #

如果你的ComboBox是手动添加的列表项，也可以用List属性按索引取值：

Private Sub cboYourComboBox_AfterUpdate()
    If Me.cboYourComboBox.ListIndex <> -1 Then
        Dim hiddenValue As Variant
        ' List(行索引, 列索引)，行索引用当前选中的ListIndex，列索引0是隐藏列
        hiddenValue = Me.cboYourComboBox.List(Me.cboYourComboBox.ListIndex, 0)
        MsgBox "隐藏列的值是：" & hiddenValue
    End If
End Sub

这个和Column属性效果差不多，只是写法稍微不同，看你习惯用哪个。

要是你还想用WHERE子句的话... #

如果你坚持要通过查询来拿值，那得注意这几点：

1. 得清楚ComboBox的RowSource对应的表/查询，以及隐藏列的字段名；
2. 确保显示列的值是唯一的，不然会返回多条记录，拿不到正确的那一个；
3. 写法要正确，比如：

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT 隐藏列字段名 FROM 你的表名 WHERE 显示列字段名 = '" & Me.cboYourComboBox.Value & "'")
If Not rs.EOF Then
    Dim hiddenValue As Variant
    hiddenValue = rs("隐藏列字段名")
    ' 这里做你需要的操作
    rs.Close
End If
Set rs = Nothing

但还是得说，这种方法不如前面的Column/List属性靠谱，毕竟如果显示列有重复值，你拿到的就不是用户选中的那一行的值了。

内容的提问来源于stack exchange，提问作者VBA.starter