+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لي أيام أحاول اعرض نتائج البحث في التقرير (/showthread.php?tid=36024)
لي أيام أحاول اعرض نتائج البحث في التقرير - المهنا - 07-08-20
انا رابط التقرير بالداتا سيت رغم كرهي للاتصال بها الكود أفضل مليون مرة
واقوم بعرض نتائج البحث في داتا جريد
ولكن لم يقم بعرض نتائج البحث يقوم بعرض الكل
ولا يقوم بتحديث البيانات في التقرير يعني لو اضفت كتاب جديد لا يعرض
الاتصال عن طريق الداتا سيت كنت اريد الاتصال بالكود لكن لم احصل على مثال كامل مقنع وبدون مشاكل
الملف حجمه كبير لكن قمت بضغطه وحذف كل الفورمات الا واحد
الكود أصلا للكرستال ريبورت حاولت احوله للريبورت فيور بس فيه اخطاء
RE: لي أيام أحاول اعرض نتائج البحث في التقرير - عبد العزيز البسكري - 07-08-20
أخي الكريم ..
ضع لنا مثالا صغيرا للكود المستعمل خلال الطباعة لنفكّر معك لعلنا نجد الحل إن شاء الله .. تحياتي
RE: لي أيام أحاول اعرض نتائج البحث في التقرير - المهنا - 07-08-20
(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 TryRE: لي أيام أحاول اعرض نتائج البحث في التقرير - المهنا - 08-08-20
الحمد لله نجحت المشكلة في الرموز '%' + ? + '%')
بس ليش ما يتحدث التقرير بالبيانات الجديدة المتصل بالداتا سيت
كود :
SELECT Workers111111.*, CompanyData.*
FROM CompanyData, Workers111111
WHERE (f1 LIKE '%' + ? + '%') order by f1