VB.NET获取ListBox中的所有项目并传递给参数

Question

您好我的循环将我的列表框中的所有项目传递给水晶报表参数。

    For i = 0 To ListBoxBillAccount.Items.Count - 1
        If ListBoxBillAccount.Items(i).selected Then
            crParameterDiscreteValue = New ParameterDiscreteValue()
            crParameterDiscreteValue.Value = ListBoxBillAccount.SelectedItems()
            crParameterValues.Add(crParameterDiscreteValue)
        End If
    Next

我收到了错误消息：＆＃34;公共成员＆＃39;已选中＆＃39;在类型＆＃39; DataRowView＆＃39;没找到。＆＃34;

编辑：这是我的完整代码：

   Dim crParameterFieldDefinitions As ParameterFieldDefinitions
    Dim crParameterFieldDefinition As ParameterFieldDefinition
    Dim crParameterValues As New ParameterValues
    Dim crParameterDiscreteValue As New ParameterDiscreteValue
    crParameterFieldDefinitions = crReportDoc.DataDefinition.ParameterFields
    crParameterFieldDefinition = crParameterFieldDefinitions("UserAcct")
    crParameterValues = crParameterFieldDefinition.CurrentValues

    For i = 0 To ListBoxBillAccount.Items.Count - 1
        If ListBoxBillAccount.Items(i).selected Then
            crParameterDiscreteValue = New ParameterDiscreteValue()
            crParameterDiscreteValue.Value = ListBoxBillAccount.SelectedItems()
            crParameterValues.Add(crParameterDiscreteValue)
        End If
    Next

    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
    frmGenerateConsolidatedBill.CrystalReportViewer1.ReportSource = crReportDoc
    frmGenerateConsolidatedBill.Refresh()
    frmGenerateConsolidatedBill.Show()

Answer 1

也许：

For Each obj In ListBoxBillAccount.SelectedItems()
    Dim crParameterDiscreteValue = New ParameterDiscreteValue()
    crParameterDiscreteValue.Value = obj
    crParameterValues.Add(crParameterDiscreteValue)
Next