[essawq]

(24-06-20, 02:43 AM)ابو ليلى كتب : انتظر انفذ خطواتك اللي تكلمت عنها

---

بعد التتبع المشكلة حصلت في زر الطباعة و ليس في التصفية بين التاريخين و تحديداً عند هذا السطر في شاشة طباعة اليومية

PHP كود :

   Private Sub BtnPrent_Click(sender As Object, e As EventArgs) Handles BtnPrent.Click
        Dim report As New RptDay
        'Dim frm As FrmPupluc = New FrmPupluc()
        report.SetDataSource(myconn.tblGroup)
        FrmPupluc.CrystalReportViewer1.ReportSource = report
        FrmPupluc.CrystalReportViewer1.Zoom(80%)
        FrmPupluc.CrystalReportViewer1.Refresh()
        FrmPupluc.ShowDialog()
        'Dim report As New CrystalReport1
        'report.SetDataSource(myconn.dt)
        'FrmRepPrivet.CrystalReportViewer1.ReportSource = report
        'FrmRepPrivet.CrystalReportViewer1.Zoom(80%)
        'FrmRepPrivet.CrystalReportViewer1.Refresh()
        'FrmRepPrivet.ShowDialog()

        'Dim report As New RptDay
        'report.SetDataSource(myconn.tblGroup)
        'FrmPupluc.CrystalReportViewer1.ReportSource = report
        'FrmPupluc.CrystalReportViewer1.Zoom(80%)
        'FrmPupluc.CrystalReportViewer1.Refresh()
        'Dim printDocument As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument()
        'report.PrintOptions.PrinterName = My.Settings.PrinterName


        'If My.Settings.PrinterName = "" Then
        '    MessageBox.Show("من فضلك حدد اسم الطابعة من شاشة اعدادت البرنامج", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        '    Return
        'End If
        'myconn.tbl.Clear()
        'myconn.tbl = myconn.readData("select * from OrderPrintData", "")
        'If myconn.tbl.Rows.Count <= 0 Then
        '    MessageBox.Show("من فضلك ادخل بيانات الفاتورة اولا فى شاشة اعدادت البرنامج", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        '    Return
        'End If
        'Dim frm1 As FrmPupluc = New FrmPupluc()
        'frm.ShowDialog()

    End Sub 


السطر الرابع الخاص بالاسناد

PHP كود :

FrmPupluc.CrystalReportViewer1.ReportSource = report 


اهلا اخي
المشكلة تحدث في اكثر من موقع كما كان يحدث معي
مرات لايظهر بالفورم المرفوع
مرات يحدث عند الخروج منه بشكل نهائي وافوت على فورم تحصل المشكلة
برايي غير محددة
ما بة السطر الخاص بالاسناد
تحياتي لك