Public Class frmRowChangeBlock
 
    Dim WithEvents dt As New DataTable
    Dim dgv As New DataGridView With {.Parent = Me}
 
    Dim sperre As Boolean = False 
 
 
    Private Sub frmRowChangeBlock_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'Einige Testdaten  
        dt.Columns.Add("Int", GetType(Integer))
        For i As Integer = 1 To 10
            dt.Rows.Add(i)
        Next i
        dgv.DataSource = dt
    End Sub
 
 
 
    Private Sub dt_RowChanged(sender As Object, _
        e As System.Data.DataRowChangeEventArgs) Handles dt.RowChanged
 
        If sperre Then Exit Sub
 
        sperre = True
 
        'Aufruf der Routine, die auf Daten-Änderungen in einer Zeile
        'mit weiteren Daten-Änderungen reagiert 
        'Die Verarbeitung des dadurch erneut ausgelösten RowChanged-Events
        'wird durch Setzen der Sperre blockiert
        'Die Routine "Action" wird bei jeder durch "RowChange" gemeldeten 
        'Änderung 1x ausgeführt.
        action(e.Row)
 
        sperre = False
    End Sub
 
 
 
    Private Sub action(ByVal row As DataRow)
        row("Int") = DirectCast(row.Item("Int"), Integer) * 2
    End Sub
End Class