تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
وضع شروط للداتا جريد فيو
#1
السلام عليكم
هذا البرنامج به كود لتلوين الخلايا في الداتا جريد فيو عرفته من العضو المحترم الاستاذ : احمد النجار .. وان شاء الله سيكون مفيدا لبقية الاعضاء
ينقصني معرفة كود يقوم بالاتي
1- اذا ادخلت الدرجة degree قيمة حرفية يقوم البرنامج بعمل الاتي : جعل قيمة الخلية فارغة nothing .. عرض رسالة " هذا الطالب غائب .. ينتقل للخلية التالية
حاولت بكود معين معرفتش ..
2- هل ينفع وضع كود شرط التلوين تحت الحدث cellvalldating للداتا جريد فيو
وشكرا .. البرنامج مرفق
البرنامج صممته بـ 2008 .. برجاء اذا تم الحل رفعه بـ 2008
أو كتابة الكود افضل من الرفع


الملفات المرفقة
.rar   Mr_Ahmed.rar (الحجم : 410.24 ك ب / التحميلات : 177)
الرد }}}
تم الشكر بواسطة:
#2
في حدث 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
الرد }}}
تم الشكر بواسطة:
#3
بسم الله الرحمن الرحيم
شكرا جزيلا للاخ الاستاذ احمد .. والله استفدت كثيرا من مشاركاتك .... واحرص على انشر ما توصلت اليه من غيري أو مني حتى ولو كان بسيطا لاني اشعر بمعاناة المبتدئين امثالي ..
اسمح لي لقد عدلت على كود سيادتك والحمد لله نجح إلا في نقطه بسيطة
كتب في حدث 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
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

أنسخ الكود أو الحدث التالى كما هو فارغ ولا تكتب فيه أي شيئ .... وجرب
PHP كود :
Private Sub Table1DataGridView_DataError(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgsHandles Table1DataGridView.DataError

    End Sub 

Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#5
أعتقد ممكن الخطأ يكون في أن الحقل نوع بياناته رقمي فعند وضع قيمة نصية لا يقبها

جرب تغيير نوع البيانات في الجدول إلى نوع نصي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جمع عمود في داتا جريد واظهار الناتج في تكست بوكس nabil 9 12,999 08-12-22, 01:27 PM
آخر رد: عبدالمؤمن
  اسناد عامود في قاعدة بيانات اكسيس الى عامود من نوع كومبوبوكس بالداتا جريد فيو بالفيجو Ghassanfff 2 2,119 08-01-21, 08:52 PM
آخر رد: سعود
  كود عدم تكرار البيانات بالداتا جريد فيو ِAbou Sama 4 7,574 04-12-20, 10:59 PM
آخر رد: Osama_NY
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 5 6,558 12-11-20, 12:13 PM
آخر رد: bahaa.elkomy@yahoo.com
  المرجو المساعدة على توزيع الطلاب وفق شروط محددة fohah 0 974 07-10-20, 12:02 AM
آخر رد: fohah
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 2 3,256 19-12-19, 11:23 PM
آخر رد: بسام محمدغانم
  سوال بخصوص الداتا جريد Abdelrahman ala 7 3,090 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 2,384 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 5,858 25-08-18, 10:00 PM
آخر رد: elgokr
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 3 3,128 02-03-18, 05:07 PM
آخر رد: كناري008

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم