Private dv_stand As DataView
    Dim dt_stand As New DataTable("stand")
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "1"
 
        dv_stand = dt_stand.DefaultView
 
        Dim dr_stand As DataRow
 
        dt_stand.Columns.Add("ZEIT", GetType(DateTime))
        dt_stand.Columns.Add("STNR")
        dt_stand.Columns.Add("RDN", GetType(Integer))
 
 
        dr_stand = dt_stand.NewRow()
        dr_stand("ZEIT") = Now
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 7
        dt_stand.Rows.Add(dr_stand)
 
        dr_stand = dt_stand.NewRow()
        dr_stand("ZEIT") = Now
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 3
        dt_stand.Rows.Add(dr_stand)
 
        dr_stand = dt_stand.NewRow()
        dr_stand("ZEIT") = Now
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 2
        dt_stand.Rows.Add(dr_stand)
 
        DataGridView1.DataSource = dv_stand
 
        dv_stand.Sort = "RDN Desc"
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim startnummer As String = TextBox1.Text
        Dim vorhanden As Boolean
 
        For Each drv As DataRowView In dv_stand
            If drv("STNR") = startnummer Then
                drv("RDN") += 1
                drv("ZEIT") = Now
                vorhanden = True
            End If
        Next
 
        If Not vorhanden Then
            Dim drv As DataRowView
            drv = dv_stand.AddNew()
            drv("ZEIT") = Now
            drv("STNR") = startnummer
            drv("RDN") = CInt(1)
            drv.EndEdit()
        End If
 
        CType(Me.BindingContext(dv_stand), CurrencyManager).Refresh()
    End Sub

        Me.BindingContext(dv_stand).SuspendBinding()
        dv_stand.RowFilter = "STNR='" & startnummer & "'"
        If dv_stand.Count > 0 Then
            Dim drv As DataRowView = dv_stand(0)
            drv("RDN") += 1
            drv("ZEIT") = Now
        Else
            Dim drv As DataRowView
            drv = dv_stand.AddNew()
            drv("ZEIT") = Now
            drv("STNR") = startnummer
            drv("RDN") = CInt(1)
            drv.EndEdit()
        End If
        dv_stand.RowFilter = String.Empty
        Me.BindingContext(dv_stand).ResumeBinding()
        CType(Me.BindingContext(dv_stand), CurrencyManager).Refresh()

________
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