[VB.NET]

السلام عليكم

أريد طباعة محتوى listview في تقرير بواسطة crystal report >>>

وقد أستخدمت الكود التالي ...

كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dsb As New Dataset1
        Dim dra As DataRow

        Try
            Dim ite As New ListViewItem
            For i As Integer = 0 To ListView1.Items.Count - 1
                dra = dsb.element1.NewRow
                dra!a1 = ListView1.Items.Item(i).SubItems(0).Text
                dra!a2 = ListView1.Items.Item(i).SubItems(1).Text
                dra!a3 = ListView1.Items.Item(i).SubItems(2).Text
                dra!a4 = ListView1.Items.Item(i).SubItems(3).Text
                dra!a5 = ListView1.Items.Item(i).SubItems(4).Text
                dra!a6 = ListView1.Items.Item(i).SubItems(5).Text
                'dra!a7 = ListView1.Items.Item(i).SubItems(6).Text
                'dra!a8 = ListView1.Items.Item(i).SubItems(7).Text

                dsb.element1.Rows.Add(dra)

            Next

            Dim f11 As New Form4
            Dim cr As New CrystalReport3
            cr.SetDataSource(dsb)
            f11.CrystalReportViewer1.ReportSource = Nothing
            f11.CrystalReportViewer1.ReportSource = cr
            f11.ShowDialog()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

ولكن عند التفيذ تخرج لي هذه الرسالة



ياريت تفيدوني