[abomo3ath]

السلام عليكم جميعاً 

لدي هذا الكود الذي يجلب لي السجلات ( عبارة عن شهادات ) من قاعدة البيانات وأرغب يكون كل شهادة في صفحة مستقلة بضغطة زر واحدة وبنفس النافذة 

ولكن المشكلة عندي أن الكود يجلب لي عدد السجلات ويقوم بتكرار أول سجل في جميع التقارير 

أود منكم المساعدة في ذلك ولكم جزيل الشكر

كود :

 If cn.State = ConnectionState.Open Then cn.Close()
       cn.Open()
       Dim ds As New DataSet
       Dim SQL As String = "SELECT * FROM sh_info where t6 LIKE'" & (serch.Text) & "'"
       Dim DA As New SqlDataAdapter(SQL, cn)
       DA.Fill(ds, "12")
       If ds.Tables("12").Rows.Count > 0 Then
           all_sh.sh_infoBindingSource.DataSource = ds.Tables("12")

         
 For i = 0 To ds.Tables("12").Rows.Count - 1

               all_sh.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
               all_sh.ReportViewer1.ZoomMode = ZoomMode.PageWidth
               all_sh.ReportViewer1.RefreshReport()

           Next

           cn.Close()



           all_sh.Show()
       End If