Public Class Form1
 
    Dim dt1 As New DataTable
    Dim dv1 As DataView
    Dim BindingSource As BindingSource
    Dim SavePath As String = Environment.GetEnvironmentVariable("appdata") & _
      "\erbru"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.Text = "erbrus Inventurprogramm:"
 
        dt1Initialisieren()
 
        dv1 = New DataView(dt1)
 
        BindingSource = New BindingSource()
        BindingSource.DataSource = dv1
 
        DGV1Initialisieren()
 
        cmbAuswahlFuellen()
        cmbKistenartFuellen()
 
        ToolStripStatusLabel1.Text = "Datensätze: " & dt1.Rows.Count
 
    End Sub
 
    Private Sub cmbKistenartFuellen()
        With cmbKistenart
            .Items.Add("Keine Auswahl")
            .Items.Add("Einzelkiste")
            .Items.Add("Mehrfachkiste Links")
            .Items.Add("Mehrfachkiste Rechts")
        End With
    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"))
 
                .TableName = "erbru"
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dt1.Columns("ID")
        dt1.PrimaryKey = primaryKey
 
    End Sub
 
    Private Sub DatenLaden(ByVal FileName As String)
 
 
        dt1.Clear()
 
        Dim sr As New System.IO.StreamReader(FileName)
        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 cmbAuswahl_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles cmbAuswahl.SelectedIndexChanged
        txtSeriennummer.Text = ""
 
        If cmbAuswahl.Text = "Alle" Then
            dv1.RowFilter = Nothing
            ToolStripStatusLabel1.Text = "Alle Datensätze: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Gefundene" Then
            dv1.RowFilter = "Status <> ''"
            ToolStripStatusLabel1.Text = "Gefundene: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Nicht gefundene" Then
            dv1.RowFilter = "Status=''"
            ToolStripStatusLabel1.Text = "Nicht gefundene: " & dv1.Count
        End If
    End Sub
 
    Private Sub ExportToXML()
 
        Dim FileName As String = "erbru_" & Format(Now, "yyyyMMdd_hhmmss") & _
          ".xml"
 
        If Not System.IO.Directory.Exists(SavePath) Then
            System.IO.Directory.CreateDirectory(SavePath)
        End If
 
        With SaveFileDialog1
            .DefaultExt = "xml"
            .Filter = "XML Dateien|*.xml"
            .FileName = FileName
            .InitialDirectory = SavePath
        End With
 
        Dim res As DialogResult
 
        res = SaveFileDialog1.ShowDialog
 
        If res = DialogResult.Abort Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            FileName = SaveFileDialog1.FileName
        End If
 
        dt1.WriteXml(FileName)
 
        ToolStripStatusLabel1.Text = "Die XML-Datei " & FileName & " wurde" & _
          "erstellt!"
 
    End Sub

EALA FREYA FRESENA