السلام عليكم
هذا البرنامج به كود لتلوين الخلايا في الداتا جريد فيو عرفته من العضو المحترم الاستاذ : احمد النجار .. وان شاء الله سيكون مفيدا لبقية الاعضاء
ينقصني معرفة كود يقوم بالاتي
1- اذا ادخلت الدرجة degree قيمة حرفية يقوم البرنامج بعمل الاتي : جعل قيمة الخلية فارغة nothing .. عرض رسالة " هذا الطالب غائب .. ينتقل للخلية التالية
حاولت بكود معين معرفتش ..
2- هل ينفع وضع كود شرط التلوين تحت الحدث cellvalldating للداتا جريد فيو
وشكرا .. البرنامج مرفق
البرنامج صممته بـ 2008 .. برجاء اذا تم الحل رفعه بـ 2008
أو كتابة الكود افضل من الرفع
في حدث Table1DataGridView_CellBeginEdit اكتب التالي
كود :
If Not IsNumeric(Table1DataGridView.CurrentRow.Cells(2)) Then
Table1DataGridView.CurrentRow.Cells(2).Value = ""
MsgBox("هذا الطالب غائب")
Table1DataGridView.CurrentRow.Cells(2).Style.BackColor = Color.Red
End If
بسم الله الرحمن الرحيم
شكرا جزيلا للاخ الاستاذ احمد .. والله استفدت كثيرا من مشاركاتك .... واحرص على انشر ما توصلت اليه من غيري أو مني حتى ولو كان بسيطا لاني اشعر بمعاناة المبتدئين امثالي ..
اسمح لي لقد عدلت على كود سيادتك والحمد لله نجح إلا في نقطه بسيطة
كتب في حدث 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
السلام عليكم ورحمة الله وبركاته
أنسخ الكود أو الحدث التالى كما هو فارغ ولا تكتب فيه أي شيئ .... وجرب
PHP كود :
Private Sub Table1DataGridView_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles Table1DataGridView.DataError
End Sub
أعتقد ممكن الخطأ يكون في أن الحقل نوع بياناته رقمي فعند وضع قيمة نصية لا يقبها
جرب تغيير نوع البيانات في الجدول إلى نوع نصي