0

こんにちは、リスト ボックス内のすべてのアイテムを Crystal レポート パラメータに渡すループに行き詰まっています。

    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' のパブリック メンバー 'selected' が見つかりません。」

編集:これが私の完全なコードです:

   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()
4

1 に答える 1

0

多分：

For Each obj In ListBoxBillAccount.SelectedItems()
    Dim crParameterDiscreteValue = New ParameterDiscreteValue()
    crParameterDiscreteValue.Value = obj
    crParameterValues.Add(crParameterDiscreteValue)
Next
于 2013-09-29T12:00:06.433 に答える