[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم هذا الكود 

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AutoNo, frstCol, scndCol As Integer
       AutoNo = (Dgv.Rows.Count - 1) + 1
       scndCol = (Dgv.Rows.Count - 1 + 4) \ 4
       If Dgv.Rows.Count - 1 = 0 Then
           frstCol = 1
       ElseIf Dgv.Rows.Count - 1 > 0 Then
           If (Dgv.Rows.Count - 1) Mod 4 = 0 Then
               frstCol = 1
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 1 Then
               frstCol = 2
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 2 Then
               frstCol = 3
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 3 Then
               frstCol = 4
           Else
               frstCol = (Dgv.Rows.Count - 1) + 1
           End If

       End If
       Dgv.Rows.Add(AutoNo, frstCol, scndCol)
   End Sub

وهذا مثال مع الداتاغرايد