[vbnet]

-
لأنك لم تحدد مصدر البيانات في الـ 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 = AllowUserToAddRows