[adnan gharbi]

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

أنا جربت الكود التالي لكن لا يعمل

كود :

Me.FixReportBindingSource.Filter = " FixDate >= '" & dtFrom.Value & "' and FixDate <= '" & dtTo.Value & "'"

[WaeLx]

(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") & "#"

[adnan gharbi]

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

[WaeLx]

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

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

[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 


[adnan gharbi]

(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  مثلا

[WaeLx]

(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") & "#"

[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 


[WaeLx]

(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

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

[adnan gharbi]

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