كود :
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CrystalReport1
rptDoc.SetDataSource(DataGridView1
Form2.CrystalReportViewer1.ReportSource = rptDoc
Form2.ShowDialog(){ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ }
" Mohamed M. Bedair - " Abu Anas
Genius Live , Egypt