السلام عليكم لدي جدول يحتوي على بيانات الاصناف اسمه item وبه جميع معلومات الاصناف ومنها تاريخ انتهاء الصنف وعند تطبيق الكود التالي :
تاريخ انتهاء الاصناف مخزن بالجدول باسم :expire_date
المطلوب المساعده على التعديل على الكود ليتم فلترة الاصناف القريب صلاحيتها من الانتهاء بايام معينة يتم اختيارها من combobox1
شاكرا للجميع
في المرفقات صوره للواجهه لتسهيل الامر
تاريخ انتهاء الاصناف مخزن بالجدول باسم :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
يتم تعبئة جميع الاصناف في الداتا جريد فيو واسمها DVGDim 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
المطلوب المساعده على التعديل على الكود ليتم فلترة الاصناف القريب صلاحيتها من الانتهاء بايام معينة يتم اختيارها من combobox1
شاكرا للجميع
في المرفقات صوره للواجهه لتسهيل الامر