'Tabelle erstellen und füllen
        Dim dt As New DataTable
        FillTable(dt)
 
        'Spaltenerstellung beim Binden verbieten  
        dgv.AutoGenerateColumns = False
 
        'Tafel binden 
	dgv.DataSource = dt
 
        'Spalten nachliefern
        Dim col As DataGridViewTextBoxColumn
        For i As Integer = 0 To dt.Columns.Count - 1
            col = New DataGridViewTextBoxColumn
            'Fillweight herabsetzen, um Überlauf zu vermeiden
            col.FillWeight = 2
            'TextBoxColumn mit Tabellenspalte verbinden ....
            col.HeaderText = dt.Columns(i).ColumnName
            col.DataPropertyName = dt.Columns(i).ColumnName
            ' ... und dem DatagridView zuordnen
            dgv.Columns.Add(col)
        Next i
 
 
 
 
   Private Sub FillTable(ByRef dt As System.Data.DataTable)
 
        'viele Spalten, wg. Demo
        Dim spz As Integer = 800
        dt = New DataTable
        dt.Columns.Add("Index", GetType(Integer))
        For sp As Integer = 1 To spz
            dt.Columns.Add("Spalte" + CStr(sp), GetType(Double))
            With dt.Columns("Spalte" + CStr(sp))
                .AllowDBNull = True
            End With
        Next sp
 
        'ein paar Zeilen reichen
        For i As Integer = 0 To 10
            dt.Rows.Add()
            dt.Rows(i).Item(0) = i
            For sp As Integer = 1 To spz
                If Rnd() > 0.1 Then
                    dt.Rows(i).Item(sp) = _
                    CDbl(CInt(2 * Rnd())) * 0.0001
                Else
                    'ein paar Sonderwerte
                    'der Rest wird undefiniert
                    If Rnd() > 0.5 Then
                        dt.Rows(i).Item(sp) = _
                        Double.NaN
                    End If
                End If
            Next sp
        Next i
    End Sub