DataGridBoolColumn

[jrw]

Hola Foro,

alguien me puede decir que es lo que hago mal, porque la columna 1 no me aparece nunca.

Gracias,

Sub BindAndFormatGrid()

With DataGrid1
.CaptionText = "Empresas"
.DataSource = MaeempData.Tables("maeemp")
.ReadOnly = True
.Width = 200
End With

DataGrid1.TableStyles.Clear()

Dim grdTableStyle1 As New DataGridTableStyle()

grdTableStyle1.MappingName = "maeemp"

' 1 columna
Dim col As New DataGridBoolColumn()
With col
.MappingName = "Selec"
.HeaderText = "Seleccion"
.Width = 80
End With
grdTableStyle1.GridColumnStyles.Add(col)

' 2 columna
Dim grdColStyle1 As New DataGridTextBoxColumn()
With grdColStyle1
.MappingName = "ptovta"
.HeaderText = "Agencia"
.Width = 50
End With
grdTableStyle1.GridColumnStyles.Add(grdColStyle1)

' 3 columna
Dim grdColStyle2 As New DataGridTextBoxColumn()
With grdColStyle2
.MappingName = "nomred"
.HeaderText = "Nombre"
.Width = 100
End With
grdTableStyle1.GridColumnStyles.Add(grdColStyle2)

DataGrid1.TableStyles.Add(grdTableStyle1)

DataGrid1.Select(DataGrid1.CurrentCell.RowNumber)

End Sub