تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لي أيام أحاول اعرض نتائج البحث في التقرير
#1
انا رابط التقرير بالداتا سيت رغم كرهي للاتصال بها الكود أفضل مليون مرة
واقوم بعرض نتائج البحث في داتا جريد
ولكن لم يقم بعرض نتائج البحث يقوم بعرض الكل 
ولا يقوم بتحديث البيانات في التقرير يعني لو اضفت كتاب جديد لا يعرض 
الاتصال عن طريق الداتا سيت كنت اريد الاتصال بالكود لكن لم احصل على مثال كامل مقنع وبدون مشاكل 
الملف حجمه كبير لكن قمت بضغطه وحذف كل الفورمات الا واحد





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



الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
أخي الكريم ..
ضع لنا مثالا صغيرا للكود المستعمل خلال الطباعة لنفكّر معك لعلنا نجد الحل إن شاء الله .. تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: حريف برمجة
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
الحمد لله نجحت المشكلة في الرموز '%' + ? + '%') 

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


كود :
SELECT        Workers111111.*, CompanyData.*
FROM            CompanyData, Workers111111
WHERE (f1 LIKE '%' + ? + '%') order by f1
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم