'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")
            dtout.Rows.Add({"Action", "ItemID", "EndCode"})
            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") = crow("SP_0")
                            orow("SP_2") = "NotAvailable"
                            dtout.Rows.Add(orow)
 
                        Next crow
                    End If
                Next prow