Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
   Handles Button1.Click
 
        Dim file_open As New OpenFileDialog
        file_open.Filter = "csv-dateien|*.csv"
        file_open.AddExtension = True
 
 
        If file_open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim auswahlListe As New List(Of String)
            For Each zeile As String In IO.File.ReadAllLines(file_open.FileName)
                If zeile.Contains("in stock") Then
                    auswahlListe.Add(zeile)
                End If
            Next
            RichTextBox1.Text = (String.Join(vbNewLine, auswahlListe.ToArray))
 
      End If
    End Sub

   Private Sub btn_Click(sender As System.Object, e As System.EventArgs) _
     Handles btn.Click
 
        Const linesperfile As Integer = 300 'max. Zeilen pro Ausgabedatei
        Dim filecounter As Integer = 0
        Dim linecounter As Integer = 0
        Dim filename As String = "C:\daten\outx" 'Ausgabedatei(en)
 
        Dim file_open As New OpenFileDialog
        file_open.Filter = "csv-dateien|*.csv"
        file_open.AddExtension = True
 
        Dim sr As IO.StreamWriter = Nothing
 
        If file_open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim auswahlListe As New List(Of String)
 
            For Each zeile As String In IO.File.ReadAllLines(file_open.FileName)
                Dim fields As New List(Of String)(zeile.Split(";"c))
                If fields.Contains("in stock") Then
 
                    If linecounter = 0 Then
                        filecounter += 1
                        sr = New IO.StreamWriter(filename & "00" & _
                          filecounter.ToString & ".csv")
                    End If
 
                    sr.WriteLine(zeile)
                    linecounter += 1
 
                    If linecounter = linesperfile Then
                        sr.Close()
                        linecounter = 0
                    End If
                End If
            Next zeile
            sr.Close()
        End If
    End Sub

Public Class Form1
 
    Private Filename_in As String
 
    Private Sub btn_Click(sender As System.Object, e As System.EventArgs) _
      Handles btn.Click
 
 
        Const linesperfile As Integer = 300 'max. Zeilen pro Ausgabedatei
        Dim filecounter As Integer = 0
        Dim linecounter As Integer = 0
        'Dim filename As String = "C:\Users\xxx\Documents\test" 'Ausgabedatei( _
          en)
 
        Dim file_open As New OpenFileDialog
        file_open.Filter = "csv-dateien|*.csv"
        file_open.AddExtension = True
 
        Dim sr As IO.StreamWriter = Nothing
 
        If file_open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim auswahlListe As New List(Of String)
 
            For Each zeile As String In IO.File.ReadAllLines(file_open.FileName)
                Dim fields As New List(Of String)(zeile.Split(";"c))
                If fields.Contains("in stock") Then
 
                    If linecounter = 0 Then
                        filecounter += 1
                        sr = New IO.StreamWriter(Filename_in & "00" & _
                          filecounter.ToString & ".csv")
                    End If
                    sr.WriteLine(fields(2) & ";" & fields(7))
                    linecounter += 1
 
                    If linecounter = linesperfile Then
                        sr.Close()
                        linecounter = 0
                    End If
                End If
            Next zeile
            sr.Close()
        End If
    End Sub
 
    Private Sub save_Click(sender As System.Object, e As System.EventArgs) _
      Handles save.Click
        IO.File.ReadAllLines(Filename_in)
    End Sub
End Class

Public Class frmCSV
 
    Dim WithEvents btn_In As New Button _
              With {.Parent = Me, .Text = "CSV-IN"}
 
    Dim WithEvents btn_out As New Button _
              With {.Parent = Me, .Text = "CSV_out", .Left = 150}
 
    Dim ofd As New OpenFileDialog
 
    Dim tbo As New TextBox With _
        {.Parent = Me, .Top = 50, .Width = 400, .Height = 400, _
         .Multiline = True}
 
    Dim FileName_In As String = ""
 
 
    Private Sub frmCSV_Load(sender As System.Object, _
                      e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 420 : Me.Height = 500
 
    End Sub
 
 
    Private Sub btn_In_Click(sender As Object, _
                      e As System.EventArgs) Handles btn_In.Click
        'Eingabedatei abfragen
        With ofd
            .Filter = "CSV|*csv"
            .CheckFileExists = True
            .Multiselect = False
            If .ShowDialog = _
                Windows.Forms.DialogResult.OK Then FileName_In = .FileName
 
            'Eingabedatei: Inhalt anzeigen  
            tbo.Text = IO.File.ReadAllText(.FileName)
        End With
    End Sub
 
 
    Private Sub btn_out_Click(sender As Object, _
        e As System.EventArgs) Handles btn_out.Click
 
        'Statt Konstanten könnten Dialogeingaben verwendet werden 
        Const linesperfile As Integer = 300 'max. Zeilen pro Ausgabedatei
        Const filename As String = "C:\daten\outx" 'Ausgabedatei(en)
        Const Searchstring As String = "in stock"
 
        Dim filecounter As Integer = 0
        Dim linecounter As Integer = 0
 
        Dim sr As IO.StreamWriter = Nothing
 
        If IO.File.Exists(FileName_In) Then
            For Each zeile As String In IO.File.ReadAllLines(FileName_In)
                Dim fields As New List(Of String)(zeile.Split(";"c))
                If fields.Contains(Searchstring) Then
 
                    If linecounter = 0 Then
                        filecounter += 1
                        sr = New IO.StreamWriter(filename & "00" & _
                          filecounter.ToString & ".csv")
                    End If
 
                    If fields.Count >= 5 Then
                        sr.WriteLine(fields(2) & ";" & fields(4))
                        linecounter += 1
 
                        If linecounter = linesperfile Then
                            sr.Close()
                            linecounter = 0
                        End If
                    End If
                End If
            Next zeile
            sr.Close()
        End If
    End Sub
End Class

Public Class frmCSV
 
    Dim ofd As New OpenFileDialog
 
    Dim FileName_In As String = ""
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        'Eingabedatei abfragen
        With ofd
            .Filter = "CSV|*csv"
            .CheckFileExists = True
            .Multiselect = False
            If .ShowDialog = Windows.Forms.DialogResult.OK Then FileName_In = _
              .FileName
 
            Const linesperfile As Integer = 300 'max. Zeilen pro Ausgabedatei
            Dim filename As String = SaveFileDialog1.FileName 'Ausgabedatei(en)
            Const Searchstring As String = "in stock"
 
            Dim filecounter As Integer = 0
            Dim linecounter As Integer = 0
 
            Dim sr As IO.StreamWriter = Nothing
 
            If IO.File.Exists(FileName_In) Then
                For Each zeile As String In IO.File.ReadAllLines(FileName_In)
                    Dim fields As New List(Of String)(zeile.Split(";"c))
                    If fields.Contains(Searchstring) Then
 
                        If linecounter = 0 Then
                            filecounter += 1
                            sr = New IO.StreamWriter("00" & _
                              filecounter.ToString & SaveFileDialog1.FileName)
                        End If
 
                        If fields.Count >= 5 Then
                            RichTextBox1.Text = (fields(9))
                            RichTextBox2.Text = (fields(11))
                            linecounter += 1
 
                            If linecounter = linesperfile Then
                                sr.Close()
                                linecounter = 0
                            End If
                        End If
                    End If
                Next zeile
                sr.Close()
            End If
 
        End With
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
 
        SaveFileDialog1.Filter = "CSV Files (*.csv)|*.csv"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
 
            'Statt Konstanten könnten Dialogeingaben verwendet werden 
 
            Const linesperfile As Integer = 300 'max. Zeilen pro Ausgabedatei
            Dim filename As String = SaveFileDialog1.FileName 'Ausgabedatei(en)
            Const Searchstring As String = "in stock"
 
            Dim filecounter As Integer = 0
            Dim linecounter As Integer = 0
 
            Dim sr As IO.StreamWriter = Nothing
 
 
            If IO.File.Exists(FileName_In) Then
                For Each zeile As String In IO.File.ReadAllLines(FileName_In)
                    Dim fields As New List(Of String)(zeile.Split(";"c))
                    If fields.Contains(Searchstring) Then
 
                        If linecounter = 0 Then
                            filecounter += 1
                            sr = New IO.StreamWriter("00" & _
                              filecounter.ToString & SaveFileDialog1.FileName)
                        End If
 
                        If fields.Count >= 5 Then
                            sr.WriteLine(fields(9) & ";" & fields(11))
                            linecounter += 1
 
                            If linecounter = linesperfile Then
                                sr.Close()
                                linecounter = 0
                            End If
                        End If
                    End If
                Next zeile
                sr.Close()
            End If
        End If
    End Sub
 
 
 
End Class

sr = New IO.StreamWriter("00" & filecounter.ToString & _
  SaveFileDialog1.FileName) Das angegebene Pfadformat wird nicht unterstützt.

Public Class frmCSV
 
    Dim WithEvents btn_In As New Button With _
        {.Parent = Me, .Text = "CSV-IN"}
 
    Dim WithEvents btn_out As New Button With _
        {.Parent = Me, .Text = "CSV_out", .Left = 150}
 
 
    Dim ofd As New OpenFileDialog, sfd As New SaveFileDialog
 
 
    Dim tboFilter As New TextBox With _
        {.Parent = Me, .Top = 50, .Width = 400}
 
    Dim dt As New DataTable, bs As New BindingSource
 
    Dim dgv As New DataGridView With {.Parent = Me, _
            .Top = 100, .Width = 400, .Height = 400, _
            .AllowUserToAddRows = False, .DataSource = bs}
 
    Dim FileName_In As String = "", filename_out As String = ""
 
 
 
    Private Sub frmCSV_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 420 : Me.Height = 550
 
        dt.Columns.Add("Spalte3") : dt.Columns.Add("Spalte5")
 
    End Sub
 
 
    Private Sub btn_In_Click(sender As Object, _
                             e As System.EventArgs) Handles btn_In.Click
 
        With ofd
            .Filter = "CSV|*csv"
            .CheckFileExists = True
            .Multiselect = False
            If .ShowDialog = _
                Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            FileName_In = .FileName
 
            bs.DataSource = Nothing
            dt.Rows.Clear()
 
            Dim lines() As String = IO.File.ReadAllLines(.FileName)
            For i As Integer = 0 To lines.Length - 1
                Dim fields As New List(Of String)(lines(i).Split(";"c))
                If String.IsNullOrEmpty(tboFilter.Text) OrElse _
                    fields.Contains(tboFilter.Text) Then
                    If fields.Count >= 5 Then
                        dt.Rows.Add(fields(2), fields(4))
                    End If
                End If
            Next i
            bs.DataSource = dt
        End With
    End Sub
 
 
    Private Sub btn_out_Click(sender As Object, _
        e As System.EventArgs) Handles btn_out.Click
 
        Const linesperfile As Integer = 300 'max. Zeilen/Ausgabedatei
        Dim filecounter As Integer = 0
        Dim linecounter As Integer = 0
        Dim toOpen As Boolean = True
 
        With sfd
            .Filter = "CSV|*.csv"
            .DefaultExt = ".csv"
            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
            filename_out = .FileName.Substring(0, .FileName.Length - 4)
        End With
 
        Dim sr As IO.StreamWriter = Nothing
 
        If IO.File.Exists(FileName_In) Then
            For Each zeile As String In IO.File.ReadAllLines(FileName_In)
 
                Dim fields As New List(Of String)(zeile.Split(";"c))
                If String.IsNullOrEmpty(tboFilter.Text) OrElse _
                    fields.Contains(tboFilter.Text) Then
 
                    If toOpen Then
                        filecounter += 1
 
                        sr = New IO.StreamWriter(filename_out & "_" & _
                          filecounter.ToString & ".csv")
                        toOpen = False
                    End If
 
                    If fields.Count >= 5 Then
                        sr.WriteLine(fields(2) & ";" & fields(4))
                        linecounter += 1
 
                        If linecounter = linesperfile Then
                            sr.Close()
                            linecounter = 0
                            toopen = True
                        End If
                    End If
                End If
            Next zeile
            sr.Close()
        End If
    End Sub
End Class

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

Zitat:

"blutiger Anfänger" gilt nicht. Man muß ein Lehrbuch sorgfältig durchgearbeitet haben

Zitat:

Vermutlich mußt Du den Inhalt dieser Tabellen-Spalten geeignet überarbeiten oder Du besorgst Dir eine csv1, die eine Spalte mit den gleichen Artikelnummern enthält wie die csv2.

'Datarelation definieren
Dim dr As New DataRelation _
("Artikel", ds.Tables("SP_X").Columns(0), ds.Tables(1).Columns("SP_Y"))

If DirectCast(prow("SP_X"), String) = "out of stock" Then

Dim dr As New DataRelation("Artikel", ds.Tables("SP_2").Columns(0), ds.Tables( _
  1).Columns("SP_13"))
 
Fehler:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

'Datarelation definieren
Dim dr As New DataRelation _
("Artikel", ds.Tables(0).Columns("SP_X"), ds.Tables(1).Columns("SP_Y"))

'per Relation zugeordnete Childrow in csv2 
For Each crow As DataRow In prow.GetChildRows(dr)
Fehler:
Die Zeile gehört nicht zum selben DataSet wie diese Beziehung.

 ds.Relations.Add(dr)
Fehler:Diese Spalten haben momentan keine eindeutigen Werte.

Zitat:

Ich habe ja bereits dreimal auf den CreateConstraints-Parameter der Relation hingewiesen, den man auf false setzen kann. Vielleicht kommt dann etwas brauchbares raus.

Dim dr As New DataRelation _
  ("Artikel", ds.Tables(0).Columns("SP_2"), ds.Tables(1).Columns("SP_13"), _
  False)

Busch 12202 2 Mannschaftswagen H0	301738000000
Busch 12204 Rungen-u.Stirnwandwagen H0	291562000000
Busch 1499 Telegrafenmasten H0	291562000000
Busch 41564 MB 170V »Schneeräumfahrzeug«	291562000000
Busch 5090 Batteriekasten/Schalter H0	301738000000
Busch 5905 Absperrschranken H0	291562000000
Busch 5911 Warnkreuze  o. Sch. H0	291562000000
Busch 5935 Blaulicht-Blinkset H0	291562000000
Busch 6048 Motiv-Set »Baustelle« H0	301738000000
Busch 7024 2 E-Lok-Portale H0	301738000000
Busch 7025 2 Dampflok-Portale H0	291562000000
Busch 7052 Streupulver maigrün	291562000000
Busch 7070 Schotter grau H0/N/TT	301738000000

    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

Dim orow As DataRow = dtout.NewRow
orow("SP_0") = "End"
orow("SP_1") = prow("SP_0")
orow("SP_2") = prow("SP_10")
dtout.Rows.Add(orow)

301738000000	Busch 12202 2 Mannschaftswagen H0
291562000000	Busch 12204 Rungen-u.Stirnwandwagen H0
291562000000	Busch 1499 Telegrafenmasten H0
291562000000	Busch 1543 Unterstand für Loren H0
291562000000	Busch 41564 MB 170V »Schneeräumfahrzeug«
301738000000	Busch 5090 Batteriekasten/Schalter H0

301738167163	Busch 12202 2 Mannschaftswagen H0
291562057194	Busch 12204 Rungen-u.Stirnwandwagen H0
291562105695	Busch 1499 Telegrafenmasten H0
291562105821	Busch 1543 Unterstand für Loren H0
291562109537	Busch 41564 MB 170V »Schneeräumfahrzeug«
301738223448	Busch 5090 Batteriekasten/Schalter H0

dtout.Rows.Add({"Action", "ItemID", "EndCode"})

 'CSV-Files lesen
        ds.Tables.Add(LoadCSV("E:\csv\csv22.csv"))
 
        If Not ds.Tables.Count = 1 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_4"), _
          ds.Tables(0).Columns("SP_5"), 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.Columns.Add("SP_3")
        dtout.Columns.Add("SP_4")
 
        Try
            'Schleife über csv1-Zeilen (=Parent)
            For Each prow As DataRow In ds.Tables(0).Rows
                'per Relation zugeordnete Childrow in csv 
                For Each crow As DataRow In prow.GetChildRows(dr)
                    'Ausgabedatensatz aufbauen
                    Dim orow As DataRow = dtout.NewRow
                    orow("SP_0") = "End"
                    orow("SP_1") = "test"
                    orow("SP_2") = "NotAvailable"
                    orow("SP_3") = crow("SP_4")
                    orow("SP_4") = crow("SP_5")
                    dtout.Rows.Add(orow)
                    TextBox1.AppendText(CStr(orow("SP_1")) & _
                      Microsoft.VisualBasic.vbCrLf)
                Next crow
                'End If
            Next prow
        Catch ex As Exception
            MessageBox.Show("Abbruch - Fehler: " & ex.Message)
            Exit Sub
        End Try

   'CSV-File lesen
   ds.Tables.Add(LoadCSV("E:\csv\csv22.csv"))
 
   If Not ds.Tables.Count = 1 Then
      MessageBox.Show("Eine Datei konnte nicht gelesen werden")
      Exit Sub
   End If
 
   'Spalten in Ausgabedatei erstellen
   dtout = New cDataTableCSV
   dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
   dtout.Columns.Add("SP_2") : dtout.Columns.Add("SP_3")
   dtout.Columns.Add("SP_4")
 
   'Spalteninhalte einer Zeile als Zeichenfolge kombinieren
   Dim line As New System.Text.StringBuilder
   'Zeilen als Zeichenfolge kombinieren
   Dim text As New System.Text.StringBuilder
 
   Try
      'Schleife über Tabellen-Zeilen 
      For Each row As DataRow In ds.Tables(0).Rows
 
          'Ausgabedatensatz aufbauen
          Dim orow As DataRow = dtout.NewRow
          orow("SP_0") = "End"
          orow("SP_1") = "test"
          orow("SP_2") = "NotAvailable"
          orow("SP_3") = row("SP_4")
          orow("SP_4") = row("SP_5")
 
          dtout.Rows.Add(orow)
 
          'Ausgabe-Datensatz als Text aufbereiten
          line.Clear()
          For i As Integer = 0 To orow.ItemArray.Length - 1
              line.Append(orow(i).ToString & ";")
          Next i
 
          text.AppendLine(line.ToString)
 
      Next row
  Catch ex As Exception
      MessageBox.Show("Abbruch - Fehler: " & ex.Message)
      Exit Sub
  End Try
 
  'Ausgabe als Text anzeigen
  textbox1.Text = text.ToString
 
  'Zeilen als csv-Datei ausgeben
  If Not dtout.SaveFile("....\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

orow("SP_0") = row("SP_0")
orow("SP_1") = row("SP_1")
orow("SP_2") = row("SP_2")
orow("SP_3") = row("SP_3")
orow("SP_4") = row("SP_4")
orow("SP_5") = row("SP_5")
orow("SP_6") = "teeeeeeeeeeeest"

dtout.Rows.Add({"Action", "ItemID", "EndCode"})

'Schleife über Tabellen-Zeilen 
For Each row As DataRow In ds.Tables(0).Rows
    '.....  
Next row

For rowindex As Integer = 1 To ds.Tables(0).Rows.Count - 1
    'zusätzliche Zeile einfügen
    Dim row As DataRow = ds.Tables(0).Rows(rowindex)
    '.....
Next rowindex

orow("SP_3") = row("SP_3") And row("SP_4")
Oder 
orow("SP_3") = row("SP_3", "SP_4")

Dim headerrow As DataRow = dtout.NewRow
headerrow.ItemArray = _
{"Action", "ItemID", "Title", "SiteID", "Currency", "StartPrice", "Test"}
 
dtout.Rows.InsertAt(headerrow, 0)

orow("SP_3") = row("SP_3").ToString & " " & row("SP_4").ToString