• 0
aftfm

رسالة خطأ تظهر في أمر الطباعة

سؤال

السلام عليكم ورحمة الله وبركاته

تظهر رسالة خطأ في امر الطباعة 

 

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

 

 

 

خطاء في الطباعة.png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .