تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى انشاء تقرير
#1
احبتى فى الله 

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

ولكن عند الطباعه يظهر بهذا الشكل
المشكله فى خلية الرصيد 
مع العلم خانة الرصيد تحسب فى الاستعلام ولا تحفظ 
ساريكم الكود الذى استعملته فى الطباعه
كود :
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
ولكم منى جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

من قراءة الكود : يبدو أن الخطأ موجود عند الـ 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
#3
للاسف لم يتم حل المشكلة
الرد }}}
تم الشكر بواسطة:
#4
أرفق مثال لحل المشكلة
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#5
احبتى فى الله تم حل المشكله بارك الله فيكم
على تعبكم معى
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم