Dim dt As New DataTable
	Dim ts As New DataGridTableStyle
	Dim dcLfd, dcPos1, dcKraft1, dcOK1, dcPos2, dcKraft2, dcOK2, dcGesamtOK As New _
  DataColumn
	Dim c1, c2, c3, c4, c5, c6, c7, c8, c9 As New DataGridTextBoxColumn
 
	Private Sub frmStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
 
		'Erzeugen der Tabellenspalten
		dcLfd.ColumnName = "Nummer"
		dcLfd.AutoIncrement = True
		dcLfd.Caption = "Nummer"
		dcLfd.DataType = Type.GetType("System.Int32")
		dcLfd.Unique = True
		dt.Columns.Add(dcLfd)
 
		dcPos1.ColumnName = "Position1"
		dcPos1.AutoIncrement = False
		dcPos1.Caption = "Position 1"
		dcPos1.DataType = Type.GetType("System.Single")
		dt.Columns.Add(dcPos1)
 
		dcKraft1.ColumnName = "Kraft1"
		dcKraft1.AutoIncrement = False
		dcKraft1.Caption = "Kraft 1"
		dcKraft1.DataType = Type.GetType("System.Single")
		dt.Columns.Add(dcKraft1)
 
		dcOK1.ColumnName = "OK1"
		dcOK1.AutoIncrement = False
		dcOK1.Caption = "OK 1"
		dcOK1.DataType = Type.GetType("System.Boolean")
		dt.Columns.Add(dcOK1)
 
		dcPos2.ColumnName = "Position2"
		dcPos2.AutoIncrement = False
		dcPos2.Caption = "Position 2"
		dcPos2.DataType = Type.GetType("System.Single")
		dt.Columns.Add(dcPos2)
 
		dcKraft2.ColumnName = "Kraft2"
		dcKraft2.AutoIncrement = False
		dcKraft2.Caption = "Kraft 2"
		dcKraft2.DataType = Type.GetType("System.Single")
		dt.Columns.Add(dcKraft2)
 
		dcOK2.ColumnName = "OK2"
		dcOK2.AutoIncrement = False
		dcOK2.Caption = "OK 2"
		dcOK2.DataType = Type.GetType("System.Boolean")
		dt.Columns.Add(dcOK2)
 
		dcGesamtOK.ColumnName = "GesamtOK"
		dcGesamtOK.AutoIncrement = False
		dcGesamtOK.Caption = "Gesamt OK"
		dcGesamtOK.DataType = Type.GetType("System.Boolean")
		dt.Columns.Add(dcGesamtOK)
 
		' Hinzufügen einer Zeile (zum Testen)
		Dim dr As DataRow = dt.NewRow
		dr.Item(0) = 1
		dr.Item(1) = 3.456
		dr.Item(2) = 7.372653
		dr.Item(3) = True
		dr.Item(4) = 34.56
		dr.Item(5) = 934.56
		dr.Item(6) = False
		dr.Item(7) = False
 
		dt.Rows.Add(dr)
 
		' Erstellen des Tablestyles
		ts.MappingName = "dt"
		ts.AllowSorting = True
 
		c1.MappingName = "Nummer"
		c1.HeaderText = "Nummer"
		c1.Width = 20
		ts.GridColumnStyles.Add(c1)
 
		c2.MappingName = "Position1"
		c2.HeaderText = "Position 1"
		c2.Width = 50
		c2.Format = "0,0 mm"
		ts.GridColumnStyles.Add(c2)
 
		c3.MappingName = "Kraft1"
		c3.HeaderText = "Kraft 1"
		c3.Width = 50
		c3.Format = "0,0 N"
		ts.GridColumnStyles.Add(c3)
 
		c4.MappingName = "OK1"
		c4.HeaderText = "OK 1"
		c4.Width = 50
		ts.GridColumnStyles.Add(c4)
 
		c5.MappingName = "Position2"
		c5.HeaderText = "Position 2"
		c5.Width = 50
		c5.Format = "0,0 mm"
		ts.GridColumnStyles.Add(c5)
 
		c6.MappingName = "Kraft2"
		c6.HeaderText = "Kraft 2"
		c6.Width = 50
		c6.Format = "0,0 N"
		ts.GridColumnStyles.Add(c6)
 
		c7.MappingName = "OK2"
		c7.HeaderText = "OK 2"
		c7.Width = 50
		ts.GridColumnStyles.Add(c7)
 
		c8.MappingName = "GesamtOK"
		c8.HeaderText = "Gesamt OK"
		c8.Width = 50
		ts.GridColumnStyles.Add(c8)
 
		dg1.TableStyles.Add(ts)
 
		dg1.DataSource = dt
 
	End Sub