[ابو ليلى]

انتظر انفذ خطواتك اللي تكلمت عنها

---

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

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