Question

我不确定为什么会这样，但是在Click事件中，我需要获取我的Listbox中的选定项目，但是当初始化循环时，没有可用的选择项。

 Private Sub lstUPSCs_Click()
        On Error GoTo Err_lstAttribute_Change

                    Dim strSelect  As String
                    Dim sQuery As String
                    Dim sUPSC As String 
                    Dim itm As Variant


                    For Each itm In Me.lstUPSCs.ItemsSelected
                      strSelect = strSelect & "," & LTrim(RTrim(Mid(lstUPSCs.Column(0, itm), 1, 8)))

                    Next

END SUB

有任何帮助解决这个问题吗？

Answer 1

对于多选列表框，以下代码应返回第一列（第0列）中的值列表。我通常不会对多选列表框使用单击事件。

For Each itm In Me.lstUNSPSCs.ItemsSelected
  strSelect = strSelect & "," & Me.lstUNSPSCs.Column(0, itm)
Next

strSelect = Mid(strSelect,2)

对于没有多选的列表框，列表框的默认值是绑定列的值。上面的代码不起作用，但您可以简单地说：

Me.lstUNSPSCs

或者

Me.lstUNSPSCs.Column(2)

其中数字是从零开始的任何有效列号。

顺便说一句，没有必要使用LTrim，RTrim - Trim涵盖两者。

MS Access LisBox On_click ItemsSelected为空

1 个答案: