[abomo3ath]

الاستعلام من الجدول sh_info لكن انت تقرأ من الجدول "12" حسب الكود ds.Tables("12")

لم تذكر نوع t6؟

لم اعرف سبب وجود For في الكود

الكود انا جربته في مشروع مؤقت بعد تعديله على اساس ان t2 هو نص وما فيه مشكلة

كود :

       Dim dt As New DataTable
       Dim SQL As String = "SELECT * FROM sh_info where t6 LIKE'" & (serch.Text) & "'"
       Dim DA As New SqlDataAdapter(SQL, cn)
       DA.Fill(dt)
       If dt.Rows.Count > 0 Then
           all_sh.sh_infoBindingSource.DataSource = dt
         
               all_sh.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
               all_sh.ReportViewer1.ZoomMode = ZoomMode.PageWidth
               all_sh.ReportViewer1.RefreshReport()

           all_sh.Show()
       End If
     

 

أشكرك أخي Zajel  على استجابتك

بالنسبة لاستفسارك الاستعلام من الجدول sh_info لكن انت تقرأ من الجدول "12" حسب الكود ds.Tables("12") 

بما أنه يتم تعبئة محتويات الاستعلام في ds.Tables("12") يكون هو نفس ناتج الاستعلام ولا مشكلة في ذلك ويقوم الكود باحضار كافة السجلات المطلوبة.. 

ولكن المشكلة تكمن في التقرير حيث يظهر لي عدد الصفحات بعدد السجلات ويكرر السجل الأول من الاستعلام في جميع صفحات التقرير

فكيف يمكن طباعة كافة السجلات ويكون بيانات كل صف القادم من الاستعلام في صفحة مستقلة !!