+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب التعديل على كود يتعلق بفلترة الاصناف حسب تاريخ انتهاء الصلاحية (/showthread.php?tid=34255)
مطلوب التعديل على كود يتعلق بفلترة الاصناف حسب تاريخ انتهاء الصلاحية - momani33 - 10-04-20
السلام عليكم لدي جدول يحتوي على بيانات الاصناف اسمه 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
يتم تعبئة جميع الاصناف في الداتا جريد فيو واسمها 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
شاكرا للجميع
في المرفقات صوره للواجهه لتسهيل الامر
RE: مطلوب التعديل على كود يتعلق بفلترة الاصناف حسب تاريخ انتهاء الصلاحية - asemshahen5 - 10-04-20
PHP كود :
SELECT *, DATEDIFF(day,GETDATE(), ExpirdDate)as [Expiry Day] from SerialNumber where DATEDIFF(day, GETDATE(),ExpirdDate)<=90