Public Class clsTableBind2
    Implements System.ComponentModel.IBindingList
 
    Dim _dt As DataTable : Dim _verticalrows As Integer
    Dim _cols As Integer : Dim _dtv As DataTable
    Dim _dtvv As DataView
 
    Public Sub New(ByVal dt As DataTable, ByVal verticalrows As Integer)
        _dt = dt : _dtv = New DataTable
        _verticalrows = verticalrows : _cols = dt.Rows.Count \ _verticalrows
        If _dt.Rows.Count / _verticalrows > 0 Then _cols += 1
        'Spalten in der umgesetzten Tabelle erstellen
        For cl As Integer = 0 To _cols - 1
            For c As Integer = 0 To _dt.Columns.Count - 1
                _dtv.Columns.Add _
                (_dt.Columns(c).ColumnName + "_" & CStr(cl), _
                _dt.Columns(c).DataType)
            Next c
        Next cl
        'Zeilen in der umgesetzten Tabelle erstellen
        For r As Integer = 0 To _verticalrows - 1
            _dtv.Rows.Add(_dtv.NewRow)
        Next r
        'Daten umsetzen
        DataTransFer(True)
        _dtvv = New DataView(_dtv)
    End Sub
 
    Public Function GetTable() As DataTable
        DataTransFer(False)
        Return _dt
    End Function
 
    Public Sub DataTransFer(ByVal direction As Boolean)
        'Daten umsetzen
        Dim z As Integer = -1 'Tabellenzeilen
        For k As Integer = 0 To _cols - 1 'Kolonnen
            For i As Integer = 0 To _verticalrows - 1 'Anzeigezeilen
                If z < _dt.Rows.Count - 1 Then
                    z += 1
                    For l As Integer = 0 To _dt.Columns.Count - 1 _
                      'Tabellenspalten
                        If direction Then
                            _dtv.Rows(i).Item(k * _dt.Columns.Count + l) = _
                                _dt.Rows(z).Item(l)
                        Else
                            _dt.Rows(z).Item(l) = _
                                _dtv.Rows(i).Item(k * _dt.Columns.Count + l)
                        End If
                    Next l
                End If
            Next i
        Next k
    End Sub
 
    Default Public Property Item(ByVal index As Integer) As Object _
        Implements System.Collections.IList.Item
        Get
            Return _dtvv(index)
        End Get
        Set(ByVal value As Object)
        End Set
    End Property
 
    Public ReadOnly Property Count As Integer Implements _
      System.Collections.ICollection.Count
        Get
            Return _verticalrows
        End Get
    End Property
 
    'Die restlichen Bestandteile der Schnittstellen benötigen
    'keinen Code
end class
 
'Anwendungsbeispiel
Public Class frmTableCol
    Dim dt As New DataTable
 
    Private Sub frmTableCol_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("Zeile", GetType(Integer))
        dt.Columns.Add("Integer", GetType(Integer))
        dt.Columns.Add("String", GetType(String))
        For i As Integer = 0 To 300
            Dim r As DataRow = dt.NewRow
            r.Item(0) = i : r.Item(1) = i * i - i : r.Item(2) = "Zeile " + CStr( _
              i)
            dt.Rows.Add(r)
        Next i
        DataGridView1.DataSource = New clsTableBind2(dt, 10)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles Button1.Click
        'Abfrage der editierten Tabelle
        DataGridView2.DataSource = CType(DataGridView1.DataSource, _
          clsTableBind2).GetTable
    End Sub
End Class