Dim startnummer As String = TextBox1.Text
        Dim vorhanden As Boolean
 
        Me.BindingContext(dv_stand).SuspendBinding()
        dv_stand.Sort = String.Empty
        For Each dr As DataRow In dt_stand.Rows
            If dr("STNR") = startnummer Then
                dr("RDN") += 1
                dr("ZEIT") = Now
                dr("TIMER") = timer
                timer += 1
                vorhanden = True
            End If
        Next
        If Not vorhanden Then
            Dim dr As DataRow
            dr = dt_stand.NewRow()
            dr("ZEIT") = Now
            dr("STNR") = startnummer
            dr("RDN") = CInt(1)
            dr("TIMER") = timer
            timer += 1
            dt_stand.Rows.Add(dr)
        End If
        dv_stand.Sort = "RDN Desc, TIMER Asc"
        Me.BindingContext(dv_stand).ResumeBinding()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist