如何使用列表框值更新文本框

Question

我有一个包含两列的列表框的Access窗体，其MultiSelect属性设置为None。 我需要使用此列表框更新2个文本框，如果用户从中选择一个项目，则其第一列的值将用于更新一个文本框，而第二列的值将用于更新另一个文本-盒子，类似：

Private Sub listbox_AfterUpdate()

Dim colval1 As String
Dim colval2 As String

colval1 = Me.listbox.column(1).Value
colval2 = Me.listbox.column(2).Value

Me.[textbox1] = colval1 
Me.[textbox2] = colval2 


End Sub

我只是不知道如何获得此列表框的价值。

Answer 1

列表框的列编号从零开始，因此第一列值可以作为Me.listbox.Column(0)访问。 当您在列之后附加.Value时，Access引发错误（ “ object required” ）。

另外，在将列值分配给文本框之前，不需要变量来存储列值。 您可以将列值直接分配给文本框。

Private Sub listbox_AfterUpdate()
    Me.[textbox1] = Me.listbox.Column(0)
    Me.[textbox2] = Me.listbox.Column(1)
End Sub

Answer 2

疯狂的VBA：

Me.[textbox3] =Me.listbox

会给你你的价值。