Private Sub AktualisiereDataGrid()
        dt.Rows.Clear()
 
        Dim i As Integer = 0
        Dim dr As DataRow
        Dim detail As TripDetail
        Dim details As ArrayList = trip.details_p
 
        Do While i < details.Count
 
            detail = CType(details.Item(i), TripDetail)
 
            dr = dt.NewRow()
 
            dr(0) = detail.speed_p.ToString("0.0")
            dr(1) = detail.weg_p.ToString("0.0")
            dr(2) = "km"
            dr(3) = detail.drehmoment_p.ToString("0")
            dr(4) = detail.tf_p.ToString("0")
            dr(5) = detail.solltf_p.ToString("0")
            dr(6) = detail.hf_p.ToString("0")
            dr(7) = detail.leistung_p.ToString("0")
            dr(8) = detail.zielwert_p.ToString("0")
            dr(9) = detail.grenzen_p.ToString("0")
            dr(10) = "1/min"
            dr(11) = detail.prognr_p.ToString("0")
            dr(12) = detail.intnr_p.ToString("0")
            dt.Rows.Add(dr)
 
            i += 1
            detail.dispose()
        Loop
 
        trip.dispose()
 
        Me.Data.CurrentRowIndex = 0
        Me.Data.Select(0)
    End Sub