ارجو منكم اخواني المساعدة. اريد لما اضغط على الداتاجريد و تظهر البيانات بالتاكسات بوكس
اذا كان تاريخ الصنف اليوم ينكتب بالتاكست بكس 4 عبارة ( التاريخ اليوم و يكون لونها التاكست بكس 4 أصفر )
اذا كان تاريخ الصنف ما زال أكثر من 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد كذا عدد الأيام و يكون لون التاكست بكس 4 أخضر )
اذا كان تاريخ الصنف بقي له فقط 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد 3 أيام و يكون لون التاكست بكس 4 برتقالي )
اذا كان تاريخ الصنف قد فات ينكتب بالتاكست بكس 4 عبارة ( التاريخ منتهي و يكون لونها التاكست بكس 4 أحمر )
بارك الله فيكم اخواني
السلام عليكم ورحمة الله وبركاته
تفضل اخي محمد هذا المثال كما طلبت عدل الكود للاسماء التي لديك
الله يبارك فيك اخي ابراهيم عمل رائع الله يجازيك كل خير.فقط اخي ابراهيم لو كان ممكن في حالة ( بقي أكثر من 3 أيام ) هل ممكن اخي ابراهيم كتابة عدد الايام بالضبط مثلا بدل ما تنكتب بالتاكست بكس 4 بقي أكثر من 3 أيام تنكتب بقي على الانتهاء مثلا 45 يوم أو 65 يوم او 89 يوم كمثال . و اذا ما في امكانية لعمل ذلك ساعتبر ان مثالك يبقى حل ولا اروع.بارك الله فيك
السلام عليكم اخي محمد
والله لاداعي لها اما ان احببت فعليك انشاء كود الفرق بين تاريخين بالايام
رايك يهمني اخي ابراهيم كفيت ووفيت و ما قصرت و الله يبارك فيك ان شاء الله.
اخي محمد حتى لايبق بنفسك منها شيئ
عدل الكود الى هذا الكود
كود :
Private Sub Dgv_Table_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dgv_Table.SelectionChanged
Txt_ExpItems.Text = ""
If Dgv_Table.CurrentRow.Cells("Item_Exp").Value < Datnow Then
Txt_ExpItems.Text = "انتهت صلاحية هذه المادة"
Txt_ExpItems.BackColor = Color.Red
ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow Then
Txt_ExpItems.Text = "اليوم تنتهي صلاحية هذه المادة"
Txt_ExpItems.BackColor = Color.Yellow
ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(1) Then
Txt_ExpItems.Text = "باقي يوم على انتهاء الصلاحية"
Txt_ExpItems.BackColor = Color.Gold
ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(2) Then
Txt_ExpItems.Text = "باقي يومان على انتهاء الصلاحية"
Txt_ExpItems.BackColor = Color.Gold
ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(3) Then
Txt_ExpItems.Text = "باقي 3 ايام على انتهاء الصلاحية"
Txt_ExpItems.BackColor = Color.Gold
Else
Dim Firstdate As Date = Now
Dim Seconddate As Date = CDate(Dgv_Table.CurrentRow.Cells("Item_Exp").Value)
Dim kk As String = DateDiff(DateInterval.Day, Seconddate, Firstdate)
Txt_ExpItems.Text = " باقي على صلاحية هذه المادة" & (kk * -1) & "يوم"
Txt_ExpItems.BackColor = Color.Green
End If
End Sub
الهي يرضى عليك و يبارلك لك بجميع امورك يا طيب يا اصيل.كلو تمام جزاك الله خيرا اخي ابراهيم
الحمد لله والشكر لله
ولك اضعاف ماتمنيته لي اخي محمد بارك الله فيك