السلام عليكم ورحمة الله وبركاته
تظهر رسالة خطأ في امر الطباعة
Dim sql As String = "SELECT * FROM tblUniversity WHERE Dep_Name= '" & Me.cmbDepartment.Text & "'"
Dim da As New OleDbDataAdapter(sql, Con)
Dim dt As New DataTable
da.Fill(dt)
If Me.BindingContext(dt).Count = 0 Then
MsgBox("خطأ")
Exit Sub
Else
Dim rpt As New CrystalReport1
rpt.SetDataSource(dt)
Dim frmPr As New frmPrinting
frmPr.Text = "تقرير"
frmPr.CrystalReportViewer1.ReportSource = rpt
frmPr.ShowDialog()
End If
