منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] صفوف دتا كريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] صفوف دتا كريد فيو (/showthread.php?tid=24153)

صفوف دتا كريد فيو - kaiser_noori - 12-03-18

السلام عليكم اخوانى
اريد مثال لجعل
صفوف دتا كريد فيو  تكتب رقم محدد من قبلى
يعنى مثلا اكول لصف استقبل فقط عشرة ارقام اكثر اعطي مثلا او
استقبل 16 رقم اقل من هذا اعطي مسج
فشنو الى لازم اسوي

RE: صفوف دتا كريد فيو - ابو محمد القحطاني - 12-03-18

اكتب الكود بحدث CellEndEdit الخاص بالداتا جريد

PHP كود :
       If e.ColumnIndex = 0 Then
            If Len(DataGridView1.Item(0, e.RowIndex).Value) > 4 Then
                MessageBox.Show("غير مسموح إدخال اكثر من 4 أرقام", "خطاء", MessageBoxButtons.OK, MessageBoxIcon.Error)
                DataGridView1.Item(0, e.RowIndex).Value = ""
            End If
        End If 

هذا الكود يمنع ادخال اكثر من 4 أرقام في العمود الاول من أي صف 

توضيح للكود :
 e.ColumnIndex = 0 هذا يعني العمود الاول
Len هذه الدالة خاص بقياس طول النص

تحياتي 

RE: صفوف دتا كريد فيو - kaiser_noori - 12-03-18

(12-03-18, 01:24 PM)ابو محمد القحطاني كتب : اكتب الكود بحدث CellEndEdit الخاص بالداتا جريد

PHP كود :
       If e.ColumnIndex = 0 Then
            If Len(DataGridView1.Item(0, e.RowIndex).Value) > 4 Then
                MessageBox.Show("غير مسموح إدخال اكثر من 4 أرقام", "خطاء", MessageBoxButtons.OK, MessageBoxIcon.Error)
                DataGridView1.Item(0, e.RowIndex).Value = ""
            End If
        End If 

هذا الكود يمنع ادخال اكثر من 4 أرقام في العمود الاول من أي صف 

توضيح للكود :
 e.ColumnIndex = 0 هذا يعني العمود الاول
Len هذه الدالة خاص بقياس طول النص

تحياتي 
مشكور وماقصرت يا اخ العزيز
بس لو سمحت عندي سوال ثاني
كيف ممكن اذا اريد ادخل 16
يعنى اقل من هذا يعطي مسج شرط الدخول 16 رقم

RE: صفوف دتا كريد فيو - ابو محمد القحطاني - 12-03-18

غير بدل 4 الى 16 

PHP كود :
 If e.ColumnIndex = 0 Then
            If Len(DataGridView1.Item(0, e.RowIndex).Value) > 16 Then
                MessageBox.Show("غير مسموح إدخال اكثر من 16 أرقام", "خطاء", MessageBoxButtons.OK, MessageBoxIcon.Error)
                DataGridView1.Item(0, e.RowIndex).Value = ""
            End If
        End If