[elgokr]

السجل الاول 

كود :

       Dim cell As DataGridViewCell = DataGridView1.Rows(0).Cells(0)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل الاخير

كود :

       Dim cell As DataGridViewCell = DataGridView1.Rows(DataGridView1.RowCount - 1).Cells(DataGridView1.ColumnCount - 1)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل التالى

كود :

       If ce >= DataGridView1.ColumnCount - 1 Then
           ce = 0
           If ro >= DataGridView1.RowCount - 1 Then
               ro = 0
           Else
               ro += 1
           End If
       Else
           ce += 1
       End If
       Dim cell As DataGridViewCell = DataGridView1.Rows(ro).Cells(ce)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل السابق

كود :

       If ce <= 0 Then
           ce = DataGridView1.ColumnCount - 1
           If ro <= 0 Then
               ro = DataGridView1.RowCount - 1
           Else
               ro += -1
           End If
       Else
           ce += -1
       End If
       Dim cell As DataGridViewCell = DataGridView1.Rows(ro).Cells(ce)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

تحياتى لك

وتمنياتى لك لاتوفيق