VB.NET獲取列表框中的所有項目並傳遞給參數

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 

我收到一個錯誤：「找不到類型爲'DataRowView'的公共成員'。

編輯：這是我的全碼：

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