[ابراهيم ايبو]

السلام عليكم 

سالني احد الاخوة ان كان انشاء كود بحيث اثناء تشغيل اليرنامج

يجلب السلع المنتهية الصلاحية بعد 3 ايام اي يكون تنبيه مسبق

يمكنكم اضافة هذا الكود

كود :

  ' ننشئ هذا الصب
   Sub FinishDate()
       For i As Integer = 0 To Dgv_Table.Rows.Count - 1
           If (CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString("dd/MM/yyyy")) = Now.AddDays(3).ToString("dd/MM/yyyy") Then
               ListView1.Items.Add(Dgv_Table.Rows(i).Cells(1).Value.ToString()).SubItems.Add(CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString("dd/MM/yyyy"))
           End If
       Next
   End Sub
   ' ثم نقوم باستدعاء هذا الصب في حدث فورم لود
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       SelectAll_TheItems()
       FinishDate() ' هذا الصب سيجلب كل المنتجات التي ستنتهي صلاحيتها بعد 3 ايام من اليوم
   End Sub