+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال فى datagridview (/showthread.php?tid=2833)
سؤال فى datagridview - Samosoft - 11-05-14
السلام عليكم ورحمة الله وبركاته
اريد كود لحذف كل السطور الفارغة فى الجرد وتترك السطور التى بها بيانات
واعادة ترقيم الجرد
بحث فى المنتدى ولم اجد شئ بهذا الخصوص
وجزاكم الله خيرا
RE: سؤال فى datagridview - vbnet - 11-05-14
-
لأنك لم تحدد مصدر البيانات في الـ DataGridView ففد استبعدت الربط بقاعدة البيانات.
كود :
' ملاحظة: فقط في حالة عدم الربط مع قاعدة بيانات
' الإحتفاظ بقيمة خاصية إمكانية الإضافة
Dim AllowUserToAddRows As Boolean = Me.DataGridView1.AllowUserToAddRows
' تعطيل خاصية إمكانية الإضافة
Me.DataGridView1.AllowUserToAddRows = False
' المرور على الأسطر ونختبر خلايا محددة إذا كانت فارغة ما عدا خلية الترقيم ونقوم بحذفها
For i = Me.DataGridView1.Rows.Count - 1 To 0 Step -1
If Me.DataGridView1.Rows(i).Cells(1).Value = "" _
And Me.DataGridView1.Rows(i).Cells(2).Value = "" _
Then Me.DataGridView1.Rows.RemoveAt(i)
Next
' المرور على الأسطر لترقيمه من جديد في خلية محددة
For i = 0 To Me.DataGridView1.Rows.Count - 1
Me.DataGridView1.Rows(i).Cells(0).Value = i + 1
Next
' إعادة قيمة خاصية إمكانية الإضافة
Me.DataGridView1.AllowUserToAddRows = AllowUserToAddRowsRE: سؤال فى datagridview - Samosoft - 11-05-14
جزاك الله خير ..
كود 10/10
RE: سؤال فى datagridview - Abu Ehab - 13-05-14
حكاية الترقيـــــــم في خلايا الجريدفيو بطريقتك هذه خطأ ..
لأن الخلايا أساسا مخصصة لبيانات أنت عايزها
أما لو عايز ترقم فلازم تستخدم رؤوس السطور :
PHP كود :
For Each R As DataGridViewRow In DataGridView1.Rows
R.HeaderCell.Value = (R.Index + 1).ToString
Next
يعطيك العافيه .