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

Question

我有一个列表框，由两列组成的列表框，其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会抛出错误（“需要的对象”）。

此外，您应该不需要变量来存储列值，然后再将它们分配给文本框。您可以直接将列值分配给文本框。

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 

会给你你的价值。