'------------------------------------------------------------------------------
' -----
            'Layout und TableStyle für dgMaterialeinzelkosten wir festgelegt
            '------------------------------------------------------------------
            ' -----------------
 
            'Columns für dgMaterialeinzelkosten
            Dim ColumnPos As New DataGridTextBoxColumn
            Dim ColumnArtikelnummer As New DataGridTextBoxColumn
            Dim ColumnArtBez As New DataGridTextBoxColumn
            Dim ColumnAnzahl As New DataGridTextBoxColumn
            Dim ColumnStkPreis As New DataGridTextBoxColumn
            Dim ColumnGesPreis As New DataGridTextBoxColumn
 
            'Columns für dtMEK
            With dtMEK.Columns
                .Add("Pos")
                .Add("Art.-Nr.")
                .Add("Art.-Bez.")
                .Add("Anzahl", GetType(Decimal))
                .Add("Stk.-Preis", GetType(Decimal))
                .Add("Ges.-Preis", GetType(Decimal))
            End With
 
 
            With ColumnPos
                .Width = 30
                .Alignment = HorizontalAlignment.Left
                .ReadOnly = True
                .MappingName = dtMEK.Columns(0).ColumnName
                .HeaderText = "Pos"
            End With
            With ColumnArtikelnummer
                .Width = 90
                .Alignment = HorizontalAlignment.Left
                .ReadOnly = False
                .MappingName = dtMEK.Columns(1).ColumnName
                .HeaderText = "Art.-Nr."
            End With
            With ColumnArtBez
                .Width = 134
                .Alignment = HorizontalAlignment.Left
                .ReadOnly = True
                .MappingName = dtMEK.Columns(2).ColumnName
                .HeaderText = "Art.-Bez."
            End With
            With ColumnAnzahl
                .Width = 51
                .Alignment = HorizontalAlignment.Right
                .MappingName = dtMEK.Columns(3).ColumnName
                .HeaderText = "Anzahl"
            End With
            With ColumnStkPreis
                .Width = 75
                .Alignment = HorizontalAlignment.Right
                .ReadOnly = True
                .MappingName = dtMEK.Columns(4).ColumnName
                .HeaderText = "Stk.-Preis"
            End With
            With ColumnGesPreis
                .Width = 75
                .Alignment = HorizontalAlignment.Right
                .ReadOnly = True
                .MappingName = dtMEK.Columns(5).ColumnName
                .HeaderText = "Ges.-Preis"
            End With
 
            Dim t1 As New System.Windows.Forms.DataGridTableStyle
            With t1.GridColumnStyles
                .Add(ColumnPos)
                .Add(ColumnArtikelnummer)
                .Add(ColumnArtBez)
                .Add(ColumnAnzahl)
                .Add(ColumnStkPreis)
                .Add(ColumnGesPreis)
            End With
            t1.AllowSorting = False
 
            dgMaterialeinzelkosten.TableStyles.Add(t1)
 
            t1.MappingName = Me.dtMEK.TableName
            With dgMaterialeinzelkosten.TableStyles(0)
                .RowHeaderWidth = 20
            End With
 
            dgMaterialeinzelkosten.DataSource = dtMEK