[nabil.1710]

(28-12-16, 02:15 AM)مساعدة كتب : حسنا، كما أخبرتك ان تربط ناتج اللاستعلام بالتقرير
نفس الكود السابق ولكن جزء If سيكون هكذا

كود :

If query.Count > 0 Then
   Dim report As New CrystalReport1

   report.SetDataSource(query.CopyToDataTable)

   Form2.CrystalReportViewer1.ReportSource = report
   Form2.Show()
End If

السلام عليكم اخى كود التقرير اعطانى هذا الخطاء انظر الصورة