1

我可以访问 2007，我想使用包含 3 个值 value1、value2、value3 的列表框 [List191] 更新文本字段 [eng]

我希望当我单击此列表并选择一个或两个值时，我会在该文本字段中将此值作为用 (,) 分隔的文本

就像是 ：

Private Sub List191_Click()
Form_tbltest.[eng].Value = Form_tbltest.[eng].Value &","& Form_tbltest.List191.value 
End Sub

这段代码对我不起作用，有什么建议吗？？？

4

1 回答 1

1

如果您有一个多选列表框，请查看ListBox.ItemsSelected 属性和ListBox.ItemData 属性的 Access 帮助主题。

在此示例中，我为代码选择了列表框的 After Update 事件。我将我的文本框命名为txtEng。代码循环遍历列表框的ItemsSelected集合，并将ItemData每个值添加到字符串变量strEng中。在循环之后，当该字符串的长度> 0 时，前导逗号将被丢弃。最后将字符串的值分配给文本框。

Private Sub List191_AfterUpdate()
    Dim strEng As String
    Dim varItem As Variant

    For Each varItem In Me.List191.ItemsSelected
        strEng = strEng & "," & Me.List191.ItemData(varItem)
    Next
    If Len(strEng) > 0 Then
        strEng = Mid(strEng, 2) ' discard leading comma
    End If
    Me.txtEng = strEng
End Sub
于 2013-10-14T03:56:30.617 回答