Dim csTable As New DataTable("tabelle")
        Dim dv As New DataView
        Dim i As Integer
        Dim r As DataRow
 
        csTable.Clear()
 
        csTable.Columns.Add(New DataColumn("Alternative_ArtikelNr", GetType( _
          String)))
        csTable.Columns.Add(New DataColumn("Kurzbezeichnung", GetType(String)))
        csTable.Columns.Add(New DataColumn("CP", GetType(Integer)))
 
        For i = 0 To 15
            r = csTable.NewRow
            r("Alternative_ArtikelNr") = "Alternative_ArtikelNr " & i
            r("Kurzbezeichnung") = "Beschreibung " & i
            r("CP") = i
            csTable.Rows.Add(r)
        Next
        dv.Table = csTable
        With DataGrid1
            .DataSource = dv
            .CurrentRowIndex = -1
        End With

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist