#Region "BindingSources Event"
    Private Sub DGV1_CurrentCellChanged(sender As Object, e As EventArgs) _
      Handles DGV1.CurrentCellChanged
        If DGV1.CurrentRow Is Nothing Then Return
 
        tbxDruck.Text = DTBS_CurrentRow("Drucken").ToString
        tbxInventarnummer.Text = DTBS_CurrentRow("InventarNr").ToString
        tbxBezeichnung.Text = DTBS_CurrentRow("Bezeichnung").ToString
        tbxvorhanden.Text = DTBS_CurrentRow("vorh").ToString
        tbxKostenstelle.Text = DTBS_CurrentRow("Kostenstelle").ToString
        tbxOrt.Text = DTBS_CurrentRow("Ort").ToString
        '
        tbxTyp.Text = DTBS_CurrentRow("Typ").ToString
        tbxBM.Text = DTBS_CurrentRow("BMNr").ToString
        tbxTeilenummer.Text = DTBS_CurrentRow("Teilenummer").ToString
 
 
        If IsDate(DTBS_CurrentRow("geprueft")) = True Then
            tbxgefundenam.Text = CDate(DTBS_CurrentRow( _
              "geprueft")).ToShortDateString
            tbxgefundenam.BackColor = Color.Lime
        Else
            tbxgefundenam.Text = String.Empty
            tbxgefundenam.BackColor = Color.MintCream
        End If
 
 
    End Sub
    Private Sub btnDatensatz_Aktualisieren_Click(sender As Object, e As _
      EventArgs) Handles btnDatensatz_Aktualisieren.Click
        Dim currentRow As DataRow = dt1.Rows(dt1.Rows.IndexOf(DirectCast( _
        BindingSource.Current, DataRowView).Row))
 
        With currentRow
            .Item(2) = tbxDruck.Text
            .Item(5) = tbxBezeichnung.Text
            .Item(6) = tbxvorhanden.Text
            .Item(8) = tbxOrt.Text
            .Item(9) = tbxKostenstelle.Text
            .Item(10) = tbxTyp.Text
            .Item(11) = tbxTeilenummer.Text
            .Item(12) = tbxBM.Text
        End With
    End Sub
    Private Sub tbxInventarnummer_Filter_TextChanged(sender As Object, e As _
      EventArgs) Handles tbxInventarnummer_Filter.TextChanged
        Dim strFilter As String = tbxInventarnummer_Filter.Text
        'BindingSource.Filter = String.Format("[{0}] Like '*{1}*'", , strFilter)
 
        dv1.RowFilter = "InventarNr LIKE '" & strFilter & "%'"
    End Sub
#End Region