منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احبتى فى الله

السلام عليكم ورحمه الله

لدى تقرير مفضل للمورد يظهر التقرير بهذا الشكل

ولكن عند الطباعه يظهر بهذا الشكل

المشكله فى خلية الرصيد

مع العلم خانة الرصيد تحسب فى الاستعلام ولا تحفظ

ساريكم الكود الذى استعملته فى الطباعه

كود :
Sub print_()

        Dim dt_print As New DataTable

        With dt_print

            .Columns.Add("imp_date")

            .Columns.Add("imp_name")

            .Columns.Add("code_")

            .Columns.Add("in_")

            .Columns.Add("out_")

            .Columns.Add("not_")

            .Columns.Add("rased_")

        End With

        For i As Integer = 0 To dgv_imp_taf.Rows.Count - 1

            If dgv_imp_taf.Rows(i).Cells(0).Value <> Nothing Then

                dt_print.Rows.Add(dgv_imp_taf.Rows(i).Cells(0).Value, dgv_imp_taf.Rows(i).Cells(2).Value, dgv_imp_taf.Rows(i).Cells(3).Value, dgv_imp_taf.Rows(i).Cells(4).Value, dgv_imp_taf.Rows(i).Cells(5).Value, dgv_imp_taf.Rows(i).Cells(6).Value, dgv_imp_taf.Rows(i).Cells(7))

            End If

        Next

        Dim REPORT As New Crys_imp_taf

        REPORT.SetDataSource(dt_print)

        TQ.CrystalReportViewer1.ReportSource = REPORT

        REPORT.Refresh()

        REPORT.SetParameterValue(2, imp_name.Text)

        'REPORT.SetParameterValue(1, MADFOE_.Text)

        REPORT.SetParameterValue(3, Val(TextBox8.Text))

        'REPORT.SetParameterValue(4, Val(txtcrited.Text))

        'REPORT.SetParameterValue(5, Val(txtbaky.Text))

        REPORT.SetParameterValue(1, DateTimePicker1.Value)

        REPORT.SetParameterValue(2, DateTimePicker2.Value)

        TQ.Show()

    End Sub

ولكم منى جزيل الشكر

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

من قراءة الكود : يبدو أن الخطأ موجود عند الـ DataTable

أظن أنه سيعمل إذا إستبدلت جزء الكود الذي لديك بالجزء التالي:

كود :
If dgv_imp_taf.Rows(i).Cells(0).Value <> Nothing Then

    dt_print.Rows.Add(dgv_imp_taf.Rows(i).Cells(0).Value, dgv_imp_taf.Rows(i).Cells(1).Value, dgv_imp_taf.Rows(i).Cells(2).Value, dgv_imp_taf.Rows(i).Cells(3).Value, dgv_imp_taf.Rows(i).Cells(4).Value, dgv_imp_taf.Rows(i).Cells(5).Value, dgv_imp_taf.Rows(i).Cells(6))

End If

بالتوفيق ..

للاسف لم يتم حل المشكلة

أرفق مثال لحل المشكلة

احبتى فى الله تم حل المشكله بارك الله فيكم

على تعبكم معى

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

خالد كامل1

Taha Okla

خالد كامل1

تركي الحلواني

خالد كامل1