[ممدوح]

إذا كانت اسم الجدول والاعمدة مطابقة
وإذا كانت الداتاسيت DataSetInvoicesP تم ملئها بالبيانات
جرب هذا الكود فقط

كود :

Dim frm As New FormPrint
Dim rpt1 As New CrystalReport1
rpt1.SetDataSource(DataSetInvoicesP)
frm.CrystalReportViewer1.ReportSource = rpt1
frm.ShowDialog()