[vbnet]

.....

تحديث لجزء من الكود بخصوص الأيام الزائدة

في زر العرض Button1

كود :

' ترقيم أعمدة الجدول بأرقام الأيام من الشهر
For i = 1 To 31
    If DateTimePicker1.Value.Date.AddDays(i - 1).Month = DateTimePicker1.Value.Date.Month Then
        Me.DataGridView1.Columns(i).HeaderText = DateTimePicker1.Value.Date.AddDays(i - 1).Day
    Else
        Me.DataGridView1.Columns(i).HeaderText = ""
    End If
Next

في زر الطباعة Button2

كود :

' وضع القيم في البارامترات التي في التقرير
For i = 1 To 31
    If DateTimePicker1.Value.Date.AddDays(i - 1).Month = DateTimePicker1.Value.Date.Month Then
        cr1.SetParameterValue(i.ToString, DateTimePicker1.Value.Date.AddDays(i - 1).Day)
    Else
        cr1.SetParameterValue(i.ToString, "")
    End If
Next

أما خطأ الطباعة فلم يظهر عندي،
نسيت أن أذكر أنني قمت بتغيير أسماء البارامترات التي داخل تقرير كريستال ريبورت ليكون لها معنى يسهل التعامل معه
لربما أنك استخدمت تقريرك القديم وليس التقرير المعدل الذي أرفقته مع مثالي

......