Public Class Form1
 
    Dim dt1 As New DataTable
    Dim dv1 As DataView
    Dim BindingSource As BindingSource
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        dt1Initialisieren()
 
        dv1 = New DataView(dt1)
 
        BindingSource = New BindingSource()
        BindingSource.DataSource = dv1
 
        DGV1Initialisieren()
 
        DatenLaden()
 
        cmbAuswahlFuellen()
 
        ToolStripStatusLabel1.Text = "Datensätze: " & dt1.Rows.Count
 
    End Sub
 
    Private Sub cmbAuswahlFuellen()
        With cmbAuswahl
            .Items.Add("Alle")
            .Items.Add("Gefundene")
            .Items.Add("Nicht gefundene")
        End With
    End Sub
 
    Private Sub DGV1Initialisieren()
 
        With DGV1
            .DataSource = BindingSource
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
        End With
 
    End Sub
 
    Private Sub dt1Initialisieren()
 
        With dt1
            With dt1
                Dim IDCol As DataColumn = dt1.Columns.Add("ID", Type.GetType( _
                  "System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Seriennummer", Type.GetType("System.String"))
                .Columns.Add("Bauteil", Type.GetType("System.String"))
                .Columns.Add("Baudatum", Type.GetType("System.String"))
                .Columns.Add("Status", Type.GetType("System.String"))
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dt1.Columns("ID")
        dt1.PrimaryKey = primaryKey
 
    End Sub
 
    Private Sub DatenLaden()
 
        Dim TextDatei As String = "e:\erbru.txt"
 
        Dim sr As New System.IO.StreamReader(TextDatei)
        Dim Zeile As String = Nothing
        Dim i As Integer = 0
 
        Dim arr() As String = Nothing
 
        Do While Not sr.EndOfStream
            Zeile = sr.ReadLine()
 
            arr = Zeile.Split(",")
            If Not arr(0).Contains("Seriennummer") Then
 
                Dim newRow As DataRow = dt1.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Seriennummer") = arr(0)
                newRow("Bauteil") = arr(1)
                newRow("Baudatum") = arr(2)
                newRow("Status") = ""
 
                dt1.Rows.Add(newRow)
 
            End If
        Loop
 
        sr.Close()
 
        Application.DoEvents()
 
    End Sub
 
    Private Sub txtSeriennummer_TextChanged(sender As Object, e As EventArgs) _
      Handles txtSeriennummer.TextChanged
 
        If (Not txtSeriennummer.Text = "" Or Not txtSeriennummer.Text = _
          Nothing) And txtSeriennummer.Text.Length = 7 Then
            dv1.RowFilter = "Seriennummer LIKE '%" & txtSeriennummer.Text & "%'"
            For Each drv As DataRowView In dv1
                drv.Item(4) = "X"
            Next
            dt1.AcceptChanges()
        Else
            dv1.RowFilter = Nothing
        End If
 
    End Sub
 
    Private Sub cmbAuswahl_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles cmbAuswahl.SelectedIndexChanged
        txtSeriennummer.Text = ""
 
        If cmbAuswahl.Text = "Alle" Then
            MsgBox("Alle")
            dv1.RowFilter = Nothing
            ToolStripStatusLabel1.Text = "Alle Datensätze: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Gefundene" Then
            dv1.RowFilter = "Status = 'X'"
            ToolStripStatusLabel1.Text = "Gefundene: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Nicht gefundene" Then
            dv1.RowFilter = "Status=''"
            ToolStripStatusLabel1.Text = "Nicht gefundene: " & dv1.Count
        End If
    End Sub
End Class

EALA FREYA FRESENA