Sub MyTableStyle(ByVal myGrid As DataGrid, ByVal myDataTable As DataTable)
        Dim ara(1) As String
        ara(0) = "Angebot"
        ara(1) = "Gesuch"
        Dim ts1 As New DataGridTableStyle 'neues Tabellenformat
 
        'Spaltenformate, welche von den überschriebenen Klassen erben
        Dim dc1 As New myDataGridTextBoxColumnKürzel 'Kürzel
        dc1.BackBrush = Brushes.PeachPuff 'Spaltenhintergrundfarbe mit übergeben
 
        Dim dc2 As New myDataGridTextBoxDatum 'heutiges Datum
        dc2.BackBrush = Brushes.PeachPuff
 
        Dim dc3 As New CMyCombo 'Firma
 
        Dim dc4 As New CMyCombo 'Artikel
        Dim dc5 As New DataGridTextBoxColumn
        Dim dc6 As New DataGridTextBoxColumn
        Dim dc7 As New CMyCombo 'Spezifikationen
        Dim dc8 As New DataGridTextBoxColumn
        Dim dc9 As New myDataGridTextBoxUhrzeit 'Uhrzeit
        dc9.BackBrush = Brushes.PeachPuff
        Dim dc10 As New CMyCombo
 
        With ts1
            .MappingName = myDataTable.TableName '... für die übergebene Tabelle
            .AlternatingBackColor = System.Drawing.Color.WhiteSmoke
            .BackColor = System.Drawing.Color.White
            .ForeColor = System.Drawing.Color.DarkSlateBlue
            .GridLineColor = System.Drawing.Color.MediumSlateBlue
            .HeaderBackColor = System.Drawing.Color.Lavender
            .HeaderForeColor = System.Drawing.Color.Black
            .RowHeaderWidth = 10
        End With
 
 
        'Mitarbeiter Kürzel Spalte
        dc1.MappingName = "Kürzel"
        dc1.HeaderText = "MA - Kürzel"
        dc1.Width = 100
        dc1.Alignment = HorizontalAlignment.Center
        dc1.ReadOnly = False
 
 
        'Datums Spalte
        dc2.MappingName = "Datum"
        dc2.HeaderText = "Datum"
        dc2.Format = "d"
        dc2.Width = 100
        dc2.Alignment = HorizontalAlignment.Center
        dc2.ReadOnly = False
 
        'Firma Spalte - Combobox
        dc3.MappingName = "Firma"
        dc3.HeaderText = "Firma"
        dc3.Width = 200
        Call ArrayFirmaFüllen()
        With dc3.GridComboBox
            .DataSource = alFirma
        End With
 
        'Artikelbezeichnung Spalte
        dc4.MappingName = "Artikel"
        dc4.HeaderText = "Artikelbezeichnung"
        dc4.Width = 100
        Call ArrayArtikelFüllen()
        With dc4.GridComboBox
            .DataSource = alArtikel
        End With
        dc4.Alignment = HorizontalAlignment.Center
 
        'Stückzahl Spalte
        dc5.MappingName = "Stückzahl"
        dc5.HeaderText = "Menge in [Stck]"
        dc5.Width = 100
        dc5.Alignment = HorizontalAlignment.Center
 
        'Produktpreis Spalte
        dc6.MappingName = "Preis"
        dc6.HeaderText = "Produktpreis"
        dc6.Width = 70
        dc6.Format = "F2"
        dc6.Alignment = HorizontalAlignment.Right
 
        'Spezifikation Spalte
        dc7.MappingName = "Spezifikation"
        dc7.HeaderText = "Spezifikation"
        dc7.Width = 100
        Call ArraySpecFüllen()
        With dc7.GridComboBox
            .DataSource = alSpec
        End With
        dc7.Alignment = HorizontalAlignment.Center
 
        'Liefertermin Spalte
        dc8.MappingName = "Liefertermin"
        dc8.HeaderText = "Liefertermin"
        dc8.Width = 100
        dc8.Alignment = HorizontalAlignment.Center
 
        'Uhrzeit Spalte
        dc9.MappingName = "Uhrzeit"
        dc9.HeaderText = "Uhrzeit"
        dc9.Width = 100
        dc9.Format = "T"
        dc9.Alignment = HorizontalAlignment.Center
        dc9.ReadOnly = False
 
        'Typ Spalte
        dc10.MappingName = "Typ"
        dc10.HeaderText = "Typ"
        dc10.Width = 100
        With dc10.GridComboBox
            .DataSource = ara
            .SelectedItem = 0 '//Angebot ist per default ausgewählt
        End With
        dc10.Alignment = HorizontalAlignment.Center
        dc10.ReadOnly = False
 
        'Hinzufügen der einzelnen Objekte von links nach rechts
        ts1.GridColumnStyles.Add(dc1)
        ts1.GridColumnStyles.Add(dc2)
        ts1.GridColumnStyles.Add(dc3)
        ts1.GridColumnStyles.Add(dc4)
        ts1.GridColumnStyles.Add(dc6)
        ts1.GridColumnStyles.Add(dc5)
        ts1.GridColumnStyles.Add(dc7)
        ts1.GridColumnStyles.Add(dc8)
        ts1.GridColumnStyles.Add(dc9)
        ts1.GridColumnStyles.Add(dc10)
 
        'Tabellenformat zum DataGrid hinzufügen
        myGrid.TableStyles.Clear()
        myGrid.TableStyles.Add(ts1)
    End Sub