[ali_ahmed12]

السلام عليكم لدي داتا قريد  فيو بيه بيانات عملت جمله استعلام لطباعه كل مافي داتا قريد فيو يطبع لي سطر اول فقط 
موضح شكل وكود طباعه استعمل برنامج كريستال ريبورت 
اريد طباعه كل ماتحتويه داتا قريد فيو  

كود :

  Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
       Dim CR As New CrystalReport2
       CR.SetDataSource(dt3)
       print_item.CrystalReportViewer1.ReportSource = CR
       print_item.Show()
   End Sub

تعبئة datatable 
ياريت الي يعرف حل يقول لي

كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
       dt.Clear()
       i = DataGridView1.CurrentRow.Index
       query = "select * from view_2 where id_product ='" & dt.Rows(i)(0) & "'"
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)
       cl()
   End Sub