Private Sub cmd_parse_Click(sender As System.Object, e As System.EventArgs) _
  Handles cmd_csv.Click
 
 
 
        Dim engine As New FileHelperEngine(GetType(Entstörmengen))
 
 
 
        'read
 
        Dim res As Entstörmengen() = DirectCast(engine.ReadFile( _
          "C:\Users\...\Beispiel.csv"), Entstörmengen())
 
 
 
        Dim table As New DataTable()
 
        table.Columns.Add("Kundensegment", GetType(String))
 
        table.Columns.Add("Produkt", GetType(String))
 
        table.Columns.Add("OrgE", GetType(String))
 
        table.Columns.Add("AsB", GetType(String))
 
        table.Columns.Add("Schlüsselwert", GetType(String))
 
 
 
 
 
        For Each Störung As Entstörmengen In res
 
 
 
            table.Rows.Add(Störung.Kundensegment, Störung.Produkt, _
              Störung.OrgE, Störung.AsB, Störung.Schlüsselwert)
 
 
 
        Next
 
 
 
        DataGridView1.DataSource = table
 
 
 
    End Sub

___________________________

Visual Studio 2010
VB.NET

Beitrag wurde zuletzt am 19.06.12 um 12:38:23 editiert.