منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
وضع شروط للداتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : وضع شروط للداتا جريد فيو (/showthread.php?tid=8537)

وضع شروط للداتا جريد فيو - cvcvcv - 19-04-13

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

وضع شروط للداتا جريد فيو - أحمد النجار - 19-04-13

في حدث 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


وضع شروط للداتا جريد فيو - cvcvcv - 19-04-13

بسم الله الرحمن الرحيم
شكرا جزيلا للاخ الاستاذ احمد .. والله استفدت كثيرا من مشاركاتك .... واحرص على انشر ما توصلت اليه من غيري أو مني حتى ولو كان بسيطا لاني اشعر بمعاناة المبتدئين امثالي ..
اسمح لي لقد عدلت على كود سيادتك والحمد لله نجح إلا في نقطه بسيطة
كتب في حدث 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

وضع شروط للداتا جريد فيو - Abu Ehab - 20-04-13

السلام عليكم ورحمة الله وبركاته

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

    End Sub 

وضع شروط للداتا جريد فيو - أحمد النجار - 20-04-13

أعتقد ممكن الخطأ يكون في أن الحقل نوع بياناته رقمي فعند وضع قيمة نصية لا يقبها

جرب تغيير نوع البيانات في الجدول إلى نوع نصي