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

الصفحات : 1 2

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

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

كود :

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

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

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

(03-06-20, 12:36 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 

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

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

اخي الكريم شكرا لردودك واهتمامك باجابة السؤال
بالنسبة للكود عندما تم اضافة المعيار الثالث للتصفية لم تعد تظهر نتائج وتختفي البيانات الموجودة في التقرير يعني لا يرجع بأي نتيجة
جربت الكود مع 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 

(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

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

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

الصفحات : 1 2