فحص حقل التاريخ اذا كان فارغ - نسخة قابلة للطباعة

فحص حقل التاريخ اذا كان فارغ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50940)

فحص حقل التاريخ اذا كان فارغ - محمد خيري - 14-01-25

اخواني لو سمحتم ارجوا منكم المساعدة بارك الله فيكم
عندي جدول و فيه حقل تاريخ و يمكن ان احفظ التاريخ فارغ
اريد اذا كان تاريخ الصلاحية اقل من 10 أيام و أضيف شرط يكون حقل التاريخ ليس فارغ يتلون السطر على الداتاجريد فيو الى اللون الاحمر ماعرفت كيف اضبطها الله يبارك فيكم
اتحصل على هذا الخطا

كود :

Conversion from string "" to type 'Date' is not valid.

RE: فحص حقل التاريخ اذا كان فارغ - Zuhare - 14-01-25

PHP كود :

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            Dim Column_Date As Object = DataGridView1.Rows(i).Cells(3).Value
            If IsDBNull(Column_Date) Then
                Return
            ElseIf Column_Date < Date.Today.AddDays(10) Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If

        Next

    End Sub

RE: فحص حقل التاريخ اذا كان فارغ - محمد خيري - 14-01-25

ربنا يسترك و يحفظك و يبارك فيك اخ Zuhar فعلا الىن يشتغل بدون ظهور رسالة الخطاأ
بقي لي لو تكرمت كيف الون فقط المنتجات يلي اقل من تاريخ اليوم او باقي عليها عشرة أو أقل من عشرة ايام على تاريخ اليوم
لماذا هنا السطر الرابع بتاريخ 18-01-2025 لم يتم تلوينه مع انو بقي على التاريخ فقط 5 أيام
و جزاك كل خير اخي الكريم

RE: فحص حقل التاريخ اذا كان فارغ - Zuhare - 14-01-25

تغيير الكود كامل

PHP كود :

   Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        If e.ColumnIndex = 3 AndAlso Not IsDBNull(e.Value) Then
            If CDate(e.Value).Date < Date.Today.AddDays(10) Then
                DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
            End If
        End If
    End Sub 

RE: فحص حقل التاريخ اذا كان فارغ - محمد خيري - 14-01-25

كلو مضبوط و الحمد لله الهي يبارك فيك و يرزقك من حيث لا تحتسب اخ Zuhar