Public Class Form1
    Inherits System.Windows.Forms.Form
 
...Windows Formdesigner....
 
    Public ts1 As New DataGridTableStyle
    Public dc1 As New DataGridTextBoxColumn
    Public myDataSet As DataSet    ' Datencache im Arbeitsspeicher
    Public Z As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Call Datagrid_erzeugen()
        Call Datagrid_formatieren()
 
    End Sub
 
    Private Sub Datagrid_erzeugen()
 
        'Ein neues DataTable generieren
        Dim myDataTable As DataTable = New DataTable("Bezeichnung")
 
        'DataColumn und DataRow Objekte deklarieren
        Dim myDataColumn As DataColumn
        Dim myDataRow As DataRow
 
        ' 1. Columnspalte genereieren
        myDataColumn = New DataColumn
        myDataColumn.DataType = System.Type.GetType("System.String")  ' hier 
        ' kann nur Text eingegeben werden
        myDataColumn.ColumnName = "Name"
        myDataColumn.ReadOnly = True
 
        'Das Column zur DataTable hinzufügen
        myDataTable.Columns.Add(myDataColumn)
 
        Dim a As Short
        For a = 1 To 31
            ' 2.-31.Columnspalte generieren
            myDataColumn = New DataColumn
            myDataColumn.DataType = System.Type.GetType("System.String")
            myDataColumn.Caption = ""
            myDataColumn.ColumnName = a.ToString  ' muß identisch sein mit dem 
            ' MappingName des Spalten
            myDataColumn.ReadOnly = False
 
            'Das Column zur DataTable hinzufügen
            myDataTable.Columns.Add(myDataColumn)
        Next
 
        myDataSet = New DataSet
        myDataSet.Tables.Add(myDataTable)
 
 
        '------------- Datagrid füllen --------------------------
        Dim b As Short
        Dim Zahl As Integer = 1
        For a = 0 To 9
            myDataRow = myDataTable.NewRow
            ' zuerst die 1.Spalte (Name) belegen
            myDataRow("Name") = "Name " & (a + 1).ToString
 
            ' anschließend die restlichen Spalten (muß pro Spalte von vorne bis 
            ' hinten erzeugt werden)
            For b = 1 To 31
                myDataRow(b) = Zahl.ToString
                Zahl += 1
            Next
 
            ' erzeugte Spalten ausgeben
            myDataTable.Rows.Add(myDataRow)
        Next
 
    End Sub
 
    Private Sub Datagrid_formatieren()
 
        ts1.MappingName = "Bezeichnung"
        ts1.AlternatingBackColor = Color.Gray
 
        dc1.MappingName = "Name"
        dc1.HeaderText = "Namen"
        dc1.Width = 130
        dc1.ReadOnly = True
 
        ts1.GridColumnStyles.Add(dc1)
 
        Dim a As Short
        For a = 1 To 31
            Dim Spalte As New DataGridTextBoxColumn
            Spalte.MappingName = a.ToString
            Spalte.HeaderText = a.ToString
            Spalte.Width = 25
 
            ts1.GridColumnStyles.Add(Spalte)
        Next
 
    End Sub
 
    'Datagrid anzeigen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim F As New Form2
 
        F.DataGrid1.TableStyles.Clear()
        Z += 1
        F.DataGrid1.CaptionText = Z.ToString
 
' Hier hab ich dann die Fehlermeldung beim zweiten Aufruf
        F.DataGrid1.TableStyles.Add(ts1)                ' das erzeugte 
        ' TableStyle dem DataGrid hinzufügen.
        F.DataGrid1.SetDataBinding(myDataSet, "Bezeichnung")  ' den erzeugten 
        ' Datencache an das DataTable (Bezeichnung) binden.
 
        F.ShowDialog()
 
    End Sub
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)