Public Class frmCSV2
 
    Dim ds As New DataSet
    Dim dt1, dt2, dtout As cDataTableCSV
 
 
    Private Function LoadCSV(file As String) As cDataTableCSV
        'CSV Datei laden - ggf. Schlüssel festlegen
        Dim dt As New cDataTableCSV
        dt.TableName = IO.Path.GetFileNameWithoutExtension(file)
        If Not dt.LoadFile(file, System.Text.Encoding.Default) Then Return _
          Nothing
        'dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
        Return dt
    End Function
 
 
 
    Private Sub frmCSV2_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'CSV-Files lesen
        ds.Tables.Add(LoadCSV("C:\daten\csv1.csv"))
        ds.Tables.Add(LoadCSV("C:\daten\csv2.csv"))
 
        'Datarelation definieren 
        Dim dr As New DataRelation _
         ("Artikel", ds.Tables(0).Columns(0), ds.Tables(1).Columns(0))
        ds.Relations.Add(dr)
 
        'Spalten in Ausgabedatei erstellen
        dtout = New cDataTableCSV
        dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
 
 
        'Schleife über csv1-Zeilen (=Parent)
        For Each prow As DataRow In ds.Tables(0).Rows
 
            'Auswahlkriterium in csv1 beachten
            If DirectCast(prow("SP_0"), String) = "2" 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") = prow("SP_0")
                    orow("SP_1") = crow("SP_0")
                    dtout.Rows.Add(orow)
                Next crow
            End If
        Next prow
 
        'Zeilen als Datei ausgeben
        dtout.SaveFile("C:\daten\csv_out.csv", ";"c)
 
    End Sub
End Class