[cvcvcv]

بسم الله الرحمن الرحيم
شكرا جزيلا للاخ الاستاذ احمد .. والله استفدت كثيرا من مشاركاتك .... واحرص على انشر ما توصلت اليه من غيري أو مني حتى ولو كان بسيطا لاني اشعر بمعاناة المبتدئين امثالي ..
اسمح لي لقد عدلت على كود سيادتك والحمد لله نجح إلا في نقطه بسيطة
كتب في حدث CellValidating الكود الاتي فلا ينفذ سطر حذف المحتويات الحرفية من الخلية ولكن يعطي رسالة خطأ .. جربتها في حدث CellBeginEdit ترفض العمل أصلا
أريد عدم ظهور تلك الرسالة وتنفيذ سطر حذف محتويات الخلية شكرا لكم جميعا وجمعه مباركة إن شاء الله
()Private Sub Table1DataGridView_CellValidating
If Table1DataGridView.CurrentCell.ColumnIndex = 0 Then
If Table1DataGridView.IsCurrentCellDirty Then

If IsNumeric(e.FormattedValue) Then
If Val(e.FormattedValue) Mod 2 = 0 Then
Table1DataGridView.CurrentRow.Cells(2).Style.BackColor = Color.Gray
End If
Else
MsgBox("أنك وضعت قيمة حرفية")
REM لا ينفذ هذه الجملة ويعطي رسالة خطأ ويترك الخلية كما هي ولا يجعل قيمتها فارغة
Table1DataGridView.CurrentRow.Cells(2).Value = ""

e.Cancel = True
End If
End If
End If