使用所选项目创建 ListBox MsgBox

Question

我有一个列表框控件，它假设将所选项目的列表填充到 MsgBox 中，但是当我运行它时，我不断收到错误代码。

错误：编译错误：找不到方法或数据成员

我做错了什么？

Private Sub ctrSend_Click()
    Dim msg As String
    Dim i As Integer
    Dim lstMsg As ListBox

    If lstShipping.ListIndex = -1 Then
        msg = "Nothing"
    Else
        msg = ""
        For i = 0 To lstShipping.ListCount - 1
            If lstShipping.Selected(i) Then _
                msg = msg & lstMsg.List(i) & vbCrLf
        Next i
    End If

    MsgBox "You selected: " & vbCrLf & msg, vbOKOnly, "Selected BIN"
    Unload Me
End Sub

Answer 1

您正在循环访问 lstShipping，但正在查看来自 lstMsg 的项目。这真的是你想做的吗？如果不是，请将 lstMsg 更改为 lstShipping，如下所示：

Private Sub ctrSend_Click()
  Dim msg As String
  Dim i As Integer
  Dim oItem as Variant
 ' Dim lstMsg As ListBox

 If lstShipping.ListIndex = -1 Then
   msg = "Nothing"
 Else
   msg = ""
   For Each oItem in lstShipping.ItemsSelected         
      msg = msg & lstShipping.ItemData(oItem) & vbCrLf   ' <---  lstShipping!         
   Next
 End If

 MsgBox "You selected: " & vbCrLf & msg, vbOKOnly, "Selected BIN"
 DoCmd.Close
End Sub