+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : السلام عليكم اخوكم احمد ارجو التعديل على الكود دة (/showthread.php?tid=22132)
السلام عليكم اخوكم احمد ارجو التعديل على الكود دة - safnnn - 16-10-17
Private Sub dgvManagCust_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvManagCust.CellFormatting
'اريد فى الكود دة انة عمود رقم4 يحتوى على 0و1 اريد 0 يساوى دخول 1 يساوي خروج
If e.ColumnIndex = dgvManagCust.Columns(4).Index _
AndAlso e.Value IsNot Nothing Then
Select Case e.Value.ToString().Length
Case 0
dgvManagCust.Columns(4).DefaultCellStyle.Format = ("دخول")
Case 1
dgvManagCust.Columns(4).DefaultCellStyle.Format = ("خروج")
End Select
End If
End Sub
RE: السلام عليكم اخوكم احمد ارجو التعديل على الكود دة - a.ahmed - 16-10-17
PHP كود :
Private Sub dgvManagCust_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles dgvManagCust.CellFormatting
'اريد فى الكود دة انة عمود رقم4 يحتوى على 0و1 اريد 0 يساوى دخول 1 يساوي خروج
If e.ColumnIndex = dgvManagCust.Columns(4).Index AndAlso e.Value IsNot Nothing Then
Select Case e.Value
Case 0
e.Value = ("دخول")
Case 1
e.Value = ("خروج")
End Select
End If
End Sub