+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32125)
ممكن كود تنبيه - sofiane-phy - 15-11-19
السلام عليكم
ممكن كود تنبيه حيث يعطي اللون الأحمر لسطر الداتا غريد فيو حينما تتساوى الكمية المباعة و كمية المخزون او بعبارة اخرى عندما تصبح الكمية الباقية =0
RE: ممكن كود تنبيه - asemshahen5 - 15-11-19
جرب هذا الكود :
PHP كود :
For Each dgvrow As DataGridViewRow In Dgv_Table.Rows
If dgvrow.IsNewRow Then Exit For
If dgvrow.Cells(0).Value = 0 Then
dgvrow.Cells(0).Style.BackColor = Color.Red
dgvrow.Cells(0).Style.ForeColor = Color.White
End If
Next
RE: ممكن كود تنبيه - sofiane-phy - 15-11-19
(15-11-19, 02:53 PM)asemshahen5 كتب : جرب هذا الكود :
PHP كود :
For Each dgvrow As DataGridViewRow In Dgv_Table.Rows
If dgvrow.IsNewRow Then Exit For
If dgvrow.Cells(0).Value = 0 Then
dgvrow.Cells(0).Style.BackColor = Color.Red
dgvrow.Cells(0).Style.ForeColor = Color.White
End If
Next
بارك الله فيك ، استعملت الكود و لم ينجح معي ووجدت هذا الكود اثناء البحث :
كود :
Private Sub dgvw_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgvw.CellFormatting
Dim row As DataGridViewRow = dgvw.Rows(e.RowIndex)
Dim obj As Object = row.Cells("Expr1").Value
If Not IsDBNull(row.Cells("Expr1").Value) Then
If row.Cells("Expr1").Value <= 0 Then
row.DefaultCellStyle.BackColor = Color.Red
ElseIf row.Cells("Expr1").Value > 0 Then
row.DefaultCellStyle.BackColor = Color.White
End If
End If
Return