Private Sub test2(ByVal DGrid As DataGrid, ByVal Dt As DataTable)
        Dim tableStyle As DataGridTableStyle
        Dim numCols, i As Integer
        Dim aColumnTextColumn As GeschlechtsZellenFarbig
        Dim bColumnTextColumn As ZellenFarbig
        tableStyle = New DataGridTableStyle
        tableStyle.MappingName = Dt.TableName
        numCols = Dt.Columns.Count
        i = 0
        Do While (i < numCols)
            If Dt.Columns(i).ColumnName = "bezahlt" Or Dt.Columns(i).ColumnName _
              = "nicht_bezahlt" Then
                bColumnTextColumn = New ZellenFarbig(Dt.Columns(i).ColumnName = _
                "nicht_bezahlt")
                bColumnTextColumn.HeaderText = Dt.Columns(i).ColumnName
                bColumnTextColumn.MappingName = Dt.Columns(i).ColumnName
                tableStyle.GridColumnStyles.Add(bColumnTextColumn)
 
            Else
                aColumnTextColumn = New GeschlechtsZellenFarbig
                aColumnTextColumn.HeaderText = Dt.Columns(i).ColumnName
                aColumnTextColumn.MappingName = Dt.Columns(i).ColumnName
                tableStyle.GridColumnStyles.Add(aColumnTextColumn)
            End If
            i = (i + 1)
        Loop
 
        DGrid.TableStyles.Clear()
        DGrid.TableStyles.Add(tableStyle)
    End Sub