09-12-12, 02:49 AM
السلام عليكم
أريد طباعة محتوى listview في تقرير بواسطة crystal report >>>
وقد أستخدمت الكود التالي ...
ولكن عند التفيذ تخرج لي هذه الرسالة
ياريت تفيدوني
أريد طباعة محتوى 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
ولكن عند التفيذ تخرج لي هذه الرسالة
ياريت تفيدوني