[momani33]

السلام عليكم لدي جدول يحتوي على بيانات الاصناف اسمه item  وبه جميع معلومات الاصناف ومنها تاريخ انتهاء الصنف  وعند تطبيق الكود التالي :

تاريخ انتهاء الاصناف مخزن بالجدول باسم :expire_date

Private Sub searsh_btn_Click(sender As Object, e As EventArgs) Handles searsh_btn.Click
        Dim adp As New SqlDataAdapter("select * from item", sqlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        dgv.DataSource = dt
    End Sub

 يتم تعبئة جميع الاصناف في الداتا جريد فيو  واسمها  DVG

المطلوب المساعده على التعديل على الكود ليتم فلترة الاصناف القريب صلاحيتها من الانتهاء بايام معينة يتم اختيارها من        combobox1

شاكرا للجميع
في المرفقات صوره للواجهه لتسهيل الامر