منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك (/showthread.php?tid=35084)

الصفحات: 1 2

كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 02-06-20

السلام عليكم
ارجو من الأخوة الافاضل المساعدة في تصفية البيانات داخل الريبورت فيور بين تاريخين 

أنا جربت الكود التالي لكن لا يعمل
كود :
Me.FixReportBindingSource.Filter = " FixDate >= '" & dtFrom.Value & "' and FixDate <= '" & dtTo.Value & "'"


RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - WaeLx - 02-06-20

(02-06-20, 11:25 PM)adnan gharbi كتب : السلام عليكم
ارجو من الأخوة الافاضل المساعدة في تصفية البيانات داخل الريبورت فيور بين تاريخين 

أنا جربت الكود التالي لكن لا يعمل
كود :
Me.FixReportBindingSource.Filter = " FixDate >= '" & dtFrom.Value & "' and FixDate <= '" & dtTo.Value & "'"

و عليكم االسلام و رحمة الله و بركاته

جرب هذا التعديل

كود :
Me.FixReportBindingSource.Filter = " FixDate >= #" & dtFrom.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtTo.Value. ToString("yyyy'/'MM'/'dd") & "#"


RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 03-06-20

لم يعمل اخي للأسف

RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - WaeLx - 03-06-20

(03-06-20, 12:36 AM)adnan gharbi كتب : لم يعمل اخي للأسف

هل يمكن أن تضع رسالة الخطأ؟

RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 03-06-20

(03-06-20, 01:11 AM)WaeLx كتب :
(03-06-20, 12:36 AM)adnan gharbi كتب : لم يعمل اخي للأسف

هل يمكن أن تضع رسالة الخطأ؟

اخي العزيز لا تظهر اي رسالة ولا يحدث شيء 
انا استخدم الكود عند حدث الضغط على الزر بعد تحديد التاريخ الاول والثاني
PHP كود :
Private Sub btn2Dates_Click(sender As Object, e As EventArgs) Handles btn2Dates.Click
        Me.FixReportBindingSource.Filter = " FixDate >= #" & dtFrom.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtTo.Value.ToString("yyyy'/'MM'/'dd") & "#"
    End Sub 


RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 03-06-20

(03-06-20, 01:27 AM)adnan gharbi كتب :
(03-06-20, 01:11 AM)WaeLx كتب :
(03-06-20, 12:36 AM)adnan gharbi كتب : لم يعمل اخي للأسف

هل يمكن أن تضع رسالة الخطأ؟

اخي العزيز لا تظهر اي رسالة ولا يحدث شيء 
انا استخدم الكود عند حدث الضغط على الزر بعد تحديد التاريخ الاول والثاني
PHP كود :
Private Sub btn2Dates_Click(sender As Object, e As EventArgs) Handles btn2Dates.Click
        Me.FixReportBindingSource.Filter = " FixDate >= #" & dtFrom.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtTo.Value.ToString("yyyy'/'MM'/'dd") & "#"
    End Sub 
عفوا اخي الكود اللي حضرتك اقترحته اشتغل تمام لأن كنت ناسي اعمل  Refresh للتقرير جزاك الله خير
هل يمكن اضافة معيار ثالث لكود التصفية وليكن برقم id  مثلا

RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - WaeLx - 03-06-20

(03-06-20, 12:29 PM)adnan gharbi كتب : عفوا اخي الكود اللي حضرتك اقترحته اشتغل تمام لأن كنت ناسي اعمل  Refresh للتقرير جزاك الله خير
هل يمكن اضافة معيار ثالث لكود التصفية وليكن برقم id  مثلا


جزانا و اياكم كل خير

يمكن أن تضيف عدد من المعايير حسب ما تريد

مثلا تضيف 
كود :
Id like '" & textboxid.text & "'



ليصبح الكود كالتالي


كود :
Me.FixReportBindingSource.Filter = " Id like '" & textboxid.text & "' AND FixDate >= #" & dtFrom.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtTo.Value.ToString("yyyy'/'MM'/'dd") & "#"


RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 04-06-20

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

هذا الكود الذي استخدمته فقط غيرت أسماء datetimepicker والكومبوبوكس حسب الموجود في الفورم
PHP كود :
Private Sub btnMulti_Click(sender As Object, e As EventArgs) Handles btnMulti.Click
        Me.FixReportBindingSource.Filter = Me.FixReportBindingSource.Filter = " VibNO like '" & cmbVibNO.Text & "' AND FixDate >= #" & dtDate1.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtDate2.Value.ToString("yyyy'/'MM'/'dd") & "#"

        Me.ReportViewer1.RefreshReport()
    End Sub 


RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - WaeLx - 04-06-20

(04-06-20, 10:10 AM)adnan gharbi كتب : اخي الكريم شكرا لردودك واهتمامك باجابة السؤال
بالنسبة للكود عندما تم اضافة المعيار الثالث للتصفية لم تعد تظهر نتائج وتختفي البيانات الموجودة في التقرير يعني لا يرجع بأي نتيجة
جربت الكود مع Datagridview واشتغل بصورة طببيعية لكن أنا اريد التصفية تكون بالتقرير لسهولة استخراج البيانات من التقرير على شكل وورد أو أكسل
مع شكري وتقديري لحضرتك

هذا الكود الذي استخدمته فقط غيرت أسماء datetimepicker والكومبوبوكس حسب الموجود في الفورم
PHP كود :
Private Sub btnMulti_Click(sender As Object, e As EventArgs) Handles btnMulti.Click
        Me.FixReportBindingSource.Filter = Me.FixReportBindingSource.Filter = " VibNO like '" & cmbVibNO.Text & "' AND FixDate >= #" & dtDate1.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtDate2.Value.ToString("yyyy'/'MM'/'dd") & "#"

        Me.ReportViewer1.RefreshReport()
    End Sub 
 

تعديل بسيط و ان شاء الله يعمل معك

جرب هذا

كود :
Private Sub btnMulti_Click(sender As Object, e As EventArgs) Handles btnMulti.Click
       Me.FixReportBindingSource.Filter = Me.FixReportBindingSource.Filter = " VibNO = '" & cmbVibNO.Text & "' AND FixDate >= #" & dtDate1.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtDate2.Value.ToString("yyyy'/'MM'/'dd") & "#"

       Me.ReportViewer1.RefreshReport()
   End Sub


أو هذا


كود :
Private Sub btnMulti_Click(sender As Object, e As EventArgs) Handles btnMulti.Click
       Me.FixReportBindingSource.Filter = Me.FixReportBindingSource.Filter = " VibNO = +" & cmbVibNO.Text & "+ AND FixDate >= #" & dtDate1.Value.ToString("yyyy'/'MM'/'dd") & "# and FixDate <= #" & dtDate2.Value.ToString("yyyy'/'MM'/'dd") & "#"

       Me.ReportViewer1.RefreshReport()
   End Sub

و أعلمني بالنتيجة

RE: كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك - adnan gharbi - 04-06-20

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