tablestyle

[silverup]

When I call formatogrid, it doesn`t work, can anybody give a hand on that
plz
thnx

Dim mitb As New DataTable("Registros")
 
 
Private Sub frmConsultaDetalle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        LlenaLista(cboEstado, "Estado")
        mitb = objTQueja.DevuelveQuejasEstado("PENDIENTE")
        dtgQuejas.DataSource = mitb
        formatogrid()
    End Sub
 
Sub formatogrid()
        With dtgQuejas
            .BackColor = Color.GhostWhite
            .BackgroundColor = Color.GhostWhite
            .BorderStyle = BorderStyle.None
            .CaptionBackColor = Color.FloralWhite
            .CaptionFont = New Font("Tahoma", 10.0!, FontStyle.Bold)
            .CaptionForeColor = Color.Black
            .CaptionText = "Registros de Quejas"
            .Font = New Font("Tahoma", 8.0!)
            .ParentRowsBackColor = Color.Beige
            .ParentRowsForeColor = Color.MidnightBlue
 
        End With
 
        Dim miestilo As New DataGridTableStyle
        With miestilo
            .AlternatingBackColor = Color.GhostWhite
            .BackColor = Color.GhostWhite
            .ForeColor = Color.MidnightBlue
            .GridLineColor = Color.RoyalBlue
            .HeaderFont = New Font("Tahoma", 8.0!, FontStyle.Bold)
            .SelectionBackColor = Color.OldLace
            .SelectionForeColor = Color.Blue
            .MappingName = "Registros"
        End With
 
        Dim grdColStyle1 As New DataGridTextBoxColumn
        With grdColStyle1
            .HeaderText = "Código"
            .MappingName = "reclamoID"
            .ReadOnly = True
            .Width = 30
        End With
 
        Dim grdColStyle2 As New DataGridTextBoxColumn
        With grdColStyle2
            .HeaderText = "Fecha Registro"
            .MappingName = "fecRegistro"
            .ReadOnly = True
            .Width = 50
        End With
 
        miestilo.GridColumnStyles.AddRange(New DataGridColumnStyle() {grdColStyle1})
 
        dtgQuejas.TableStyles.Add(miestilo)
    End Sub