Private Sub frmCSV2_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        ds.Tables.Add(LoadCSV("C:\downloads\csv1.csv"))
        ds.Tables.Add(LoadCSV("C:\downloads\csv2.csv"))
 
        If Not ds.Tables.Count = 2 Then
            MessageBox.Show("Eine Datei konnte nicht gelesen werden")
            Exit Sub
        End If
 
        'Datarelation 
        Dim dr As New DataRelation _
         ("Artikel", ds.Tables(0).Columns("SP_2"), _
          ds.Tables(1).Columns("SP_13"), False)
 
        ds.Relations.Add(dr)
 
        'Spalten in Ausgabedatei erstellen
        dtout = New cDataTableCSV
        dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
        dtout.Columns.Add("SP_2")
 
        Try
            'Schleife über csv1-Zeilen (=Parent)
            For Each prow As DataRow In ds.Tables(0).Rows
                'Suchkriterium in csv1
                If DirectCast(prow("SP_10"), String) = "out of stock" Then
                    'per Relation zugeordnete Childrow in csv2 
                    For Each crow As DataRow In prow.GetChildRows(dr)
                        'Ausgabedatensatz aufbauen
                        Dim orow As DataRow = dtout.NewRow
                        orow("SP_0") = "End"
                        orow("SP_1") = prow("SP_2")
                        orow("SP_2") = prow("SP_10")
                        dtout.Rows.Add(orow)
                    Next crow
                End If
            Next prow
        Catch ex As Exception
            MessageBox.Show("Abbruch - Fehler: " & ex.Message)
            Exit Sub
        End Try
 
        'Zeilen als Datei ausgeben
        If Not dtout.SaveFile("C:\daten\csv_out.csv", ";"c) Then
            MessageBox.Show("Fehler beim Schreiben der Datei")
        Else
            MessageBox.Show _
            (dtout.Rows.Count.ToString & " Zeilen sind geschrieben worden")
        End If
    End Sub