'Datagridview Position auslesen
        Dim intRow As Integer = dgvKanon.CurrentCell.RowIndex
        Dim intColumn As Integer = dgvKanon.CurrentCell.ColumnIndex

'Datagridview Position setzen
        intRow = intRow - 1
        If intRow > 0 Then
            dgvKanon.CurrentCell = dgvKanon(intColumn, intRow)
 
'Das hier scheint nicht auszureichen:
            dgvKanon.CurrentCell.Selected = True
        Else
            dgvKanon.CurrentCell = dgvKanon(intColumn, 0)
        End If

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

dgvKanon.BeginEdit(True)

EALA FREYA FRESENA

'Datagridview Position setzen
        intRow = intRow - 1
        If intRow > 0 Then
            dgvKanon.CurrentCell = dgvKanon(intColumn, intRow)
            dgvKanon.CurrentCell.Selected = True
        Else
            dgvKanon.CurrentCell = dgvKanon(intColumn, 0)
            dgvKanon.CurrentCell.Selected = True
        End If
 
        dgvKanon.BeginEdit(True)

Private Sub dgvKanon_CellClick(sender As Object, e As _
  DataGridViewCellEventArgs) Handles dgvKanon.CellClick

dgvKanon_CellClick(dgvKanon, e)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Zitat:

Mal prinzipiell: Ein Datensatz kann nicht durch einen Control-Zeilenindex sicher identifiziert werden.

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Zitat:

Ich verstehe das nicht. Wieso muß nach dem Löschen von Datensätzen eine neues Lesen der Liste erfolgen? Welche externe Datenquelle nutzt Du?

Zitat:

Nach dem neuen Lesen zeigt der vorab zwischengespeicherte Grid-Zeilenindex nicht unbedingt auf einen wohl-definierten "nächsten"; Datensatz.

Zitat:

Was spricht eigentlich dagegen, statt dessen den Primärschlüssel der "nächsten"; Zeile zu speichern und nach der Aktualisierung der Liste und dem Einlesen danach zu suchen und im Grid den Satz zu selektieren? Das ist der vorgesehene und zuverlässige Weg.

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Zitat:

Du bewegst Dich mit Deinem Vorgehen auf sehr dünnem Eis!

dgvKanon.BeginEdit(True)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Public Class frmFindRow
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With
        {.Parent = Me, .DataSource = bs, 
        .Size = New Drawing.Size(500, 400),
        .AllowUserToAddRows = False}
 
    Dim WithEvents btnSetRow As New Button With
        {.Parent = Me, .Text = "Notiere Satz", 
         .Top = 410, .Width = 150}
 
    Dim WithEvents btnFindRow As New Button With
        {.Parent = Me, .Text = "Markiere Satz", 
         .Top = 410, .Width = 150, .Left = 160}
 
    'Klasse, um Schlüsselwerte zu speichern
    Private Class RowKey
        Public Name As String = ""
        Public Vorname As String = ""
        Public Ort As String = ""
        Public Strasse As String = ""
        Public Nummer As Integer
    End Class
 
    'Für die Schlüsselwerte des zuletzt notierten Satzes
    Dim CurrentRowkey As RowKey = New RowKey
 
 
    Private Sub frmFindRow_Load(sender As Object, 
                    e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(520, 480)
 
        'Testdaten erstellen
        With dt
            With .Columns
                .Add("Name", GetType(String))
                .Add("Vorname", GetType(String))
                .Add("Ort", GetType(String))
                .Add("Strasse", GetType(String))
                .Add("Nummer", GetType(String))
            End With
 
            .PrimaryKey = 
           {.Columns(0), .Columns(1), .Columns(2), .Columns(3), .Columns(4)}
 
            With .Rows
                .Add("Albert", "Wolfgang", "Brüssel", "xyz", 12)
                .Add("Alberti", "Dieter", "München", "xyz", 22)
                .Add("Meyer", "Dieter", "München", "xyz", 22)
                .Add("Albert", "Magnus", "München", "abc", 44)
                .Add("Albert", "Wolfgang", "Brüssel", "xyz", 32)
                .Add("Alberti", "Dieter", "München", "xyz", 52)
                .Add("Meyer", "Dieter", "München", "xyz", 21)
                .Add("Albert", "Magnus", "München", "abc", 45)
            End With
        End With
 
        'Datenbindung 
        bs.DataSource = dt
    End Sub
 
 
    Private Sub btnSetRow_Click(sender As Object, 
                      e As EventArgs) Handles btnSetRow.Click
 
 
        'Aktuelle Zeile: Schlüsselwerte notieren
        Dim cr As DataGridViewRow = dgv.CurrentRow
        With CurrentRowkey
            .Name = cr.Cells("Name").Value.ToString
            .Vorname = cr.Cells("Vorname").Value.ToString
            .Ort = cr.Cells("Ort").Value.ToString
            .Strasse = cr.Cells("Strasse").Value.ToString
            .Nummer = CInt(cr.Cells("Nummer").Value)
        End With
    End Sub
 
 
    Private Sub btnFindRow_Click(sender As Object, 
                e As EventArgs) Handles btnFindRow.Click
 
        'Zeile in der Datenquelle suchen
        Dim dr As DataRow
        With CurrentRowkey
            dr = dt.Rows.Find 
              ({ .Name, .Vorname, .Ort, .Strasse, .Nummer})
        End With
        If dr Is Nothing Then
            MsgBox("Schlüssel nicht gefunden")
            Exit Sub
        End If
 
        'Zeilenposition im der Bindingsource ermitteln
        Dim index As Integer = -1
        Dim found As Boolean
        Do
            index += 1
            found = DirectCast(bs(index), DataRowView).Row.Equals(dr)
        Loop While Not found And index < bs.Count - 1
 
        If found Then bs.Position =index
    End Sub
End Class

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)