04-01-24, 01:57 AM
احبتى فى الله
السلام عليكم ورحمه الله
لدى تقرير مفضل للمورد يظهر التقرير بهذا الشكل
ولكن عند الطباعه يظهر بهذا الشكل
المشكله فى خلية الرصيد
مع العلم خانة الرصيد تحسب فى الاستعلام ولا تحفظ
ساريكم الكود الذى استعملته فى الطباعه
كود :
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