Question

我有一个启用了多个选择的组合。我已经创建了一个新表单，并希望在文本框中显示组合框选择。我使用以下命令显示实际数据而不是键：=[MyComboBox].[Column](2)，但它仅显示记录中恰好选择了1个项目的数据。对于在组合框中选择了多个项目的记录，它什么也不显示。

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

Answer 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)

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

1 个答案: