Dim z As Integer
 Dim vorhanden As Boolean = False
 
Me.BindingContext(dv_stand).SuspendBinding()
For z = 1 To dv_stand.Table.Rows.Count - 1
  If dv_stand(z)("STNR") = startnummer Then
    dv_stand(z)("RDN") += 1
    vorhanden = True
  End If
Next z
Me.BindingContext(dv_stand).ResumeBinding()
 
If vorhanden = False Then
  Dim drv As DataRowView
  drv = dv_stand.AddNew()
  drv("RG") = "1"
  drv("STNR") = startnummer
  drv("RDN") = runden
  drv("TIMER") = timer
End If