[ابو انس]

سبب المشكلة انك تعتقد انك تقوم بتزويد الكريستال ببيانات من الداتا جريد فيو
لا اطلاقا الكود الذي تستخدمه انت يقوم بتزويد الكريستال ببيانات من السيكوال طبعا عن طريق وسيط 
تأمل هذا السطر من الكود الخاص بك
 dt1 = DataGridView1.DataSource
ربما يعتقد البعض معنى هذا االسطر ان الداتا تيبل تساوي محتويات الداتا جريد فيو وهذا خطأ والصحيح انك جعلت الداتا تيبل تساوي  محتويات مصدر البيانات للداتا جريد فيو
فيجب استبدال ذلك بما يلي
نقوم باضاف اعمدة للداتا تيبل ثم نقوم بعمل جملة فور تمر على اسطر الداتا جريد فيو وتضيق القيم للداتا تيبل
اعرف ان كلامي قد يبدو غير واضح ولكن سأقوم بنسخ كود من احد برامجي كي تتضح الفكرة

كود :

     Dim dt As New DataTable
           With dt
               .Columns.Add("id")
               .Columns.Add("BILLNO")
               .Columns.Add("BRANSH_NAME")
               .Columns.Add("CUST_NAME")
               .Columns.Add("PHON")
               .Columns.Add("DAT")
               .Columns.Add("notee")
           End With

           For I As Integer = 0 To DGVSEARSH.Rows.Count - 1
               If DGVSEARSH.Rows(I).Cells(0).Value <> Nothing Then
                   dt.Rows.Add(DGVSEARSH.Rows(I).Cells(0).Value.ToString, DGVSEARSH.Rows(I).Cells(1).Value.ToString, DGVSEARSH.Rows(I).Cells(2).Value.ToString, DGVSEARSH.Rows(I).Cells(3).Value.ToString, DGVSEARSH.Rows(I).Cells(4).Value.ToString, DGVSEARSH.Rows(I).Cells(5).Value.ToString, DGVSEARSH.Rows(I).Cells(6).Value.ToString)
               End If
           Next
           '    '-------------------------------------------------------
           Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
           rptDoc = New Crystal_bill1
           rptDoc.SetDataSource(dt)

           Dim f As New FRM_PRINT
           f.CrystalReportViewer1.ReportSource = rptDoc
           f.ShowDialog()