[المهنا]

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





الكود أصلا للكرستال ريبورت حاولت احوله للريبورت فيور بس فيه اخطاء 

[عبد العزيز البسكري]

أخي الكريم ..

ضع لنا مثالا صغيرا للكود المستعمل خلال الطباعة لنفكّر معك لعلنا نجد الحل إن شاء الله .. تحياتي

[المهنا]

(07-08-20, 05:21 AM)عبد العزيز البسكري كتب :

أخي الكريم ..

ضع لنا مثالا صغيرا للكود المستعمل خلال الطباعة لنفكّر معك لعلنا نجد الحل إن شاء الله .. تحياتي

كود :

  Try
           'كود الطباعة
           Application.DoEvents()
           ProgressBar1.Visible = True
           Dim rpt As New Repor : ProgressBar1.Value = 10
           rpt.SetDataSource(DataSet1) : ProgressBar1.Value = 40
           Form1.ReportViewer1.ReportSource = rpt : ProgressBar1.Value = 60
           'كلمة سر قاعدة البيانات
           Form1.ReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "optimize" : ProgressBar1.Value = 100
           ProgressBar1.Visible = False
           'اختيار طابعة اخرى للطباعة غير الطابعة الافتراضية
           rpt.PrintOptions.PrinterName = "اسم الطابعة الخاصة الاخرى"
           'معاينة التقرير
           Form1.ShowDialog()
           'كود طباعة مع ظهور نافذة الطباعة
           Form1.ReportViewer1.PrintReport()
           'كود طباعة مباشرة مع تحديد عد النسخ
           rpt.PrintToPrinter(1, True, 0, 0)
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

[المهنا]

الحمد لله نجحت المشكلة في الرموز '%' + ? + '%') 

 بس ليش ما يتحدث  التقرير بالبيانات الجديدة المتصل بالداتا سيت 

كود :

SELECT        Workers111111.*, CompanyData.*
FROM            CompanyData, Workers111111
WHERE (f1 LIKE '%' + ? + '%') order by f1