1

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

 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

请帮忙解决这个问题？

4

1 回答 1

0

对于多选列表框，以下代码应返回第一列（第 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 涵盖了两者。

于 2012-08-23T22:48:58.400 回答