如何在一个文本框中显示多个组合框项？答案

【问题标题】：How do you display multiple combo box items in one text box?如何在一个文本框中显示多个组合框项？
【发布时间】：2020-02-07 21:55:07
【问题描述】：

我有一个启用了多项选择的组合。我制作了一个新表单，并希望在文本框中显示组合框选择。我使用以下内容而不是键来显示实际数据：=[MyComboBox].[Column](2) 但它只显示记录中恰好选择了 1 个项目的数据。对于在组合框中选择了多个项目的记录，它不显示任何内容。

如何在文本框中显示我的所有选择？

【问题讨论】：

循环组合框的SelectedItems 并将它们连接到文本框中。但是为什么不用列表框替换它呢？
@Gustav 因为我是菜鸟，不知道怎么做。

标签： vba ms-access

【解决方案1】：

使用 ListBox 并创建如下函数：


    Public Function GetSelectedItems(list As ListBox, Optional index as int = 0) As String
        Dim result As String

        For Each varItem In list.ItemsSelected
            result = result & "," & combo.Column(index)
        Next

        GetSelectedItems = Mid(result, 2)
    End Function

将此函数的结果赋值给文本框：


    Me.MyTextBox = GetSelectedItems(Me.MyComboBox, 2)

【讨论】：