My first column is a DataGridBoolColumn and does not show in the grid.
I know that the column is added to the tablestyle (and it is not part of the dataset)
Any ideas?


Private Sub LoadGrid()
Dim strSql As String
Dim objdl As New DYJ_DL.DLCoordinator()

ds = objdl.spCoordinator_selHist(ParticipantId)

grdCoordinator.DataSource = ds
grdCoordinator.DataMember = "Table"

AddCustomDataTableStyles(ds)

End Sub

Private Sub AddCustomDataTableStyles(ByVal ds As DataSet)
Dim tsTableStyle As New DataGridTableStyle()
Dim tcTextCol As DataGridTextBoxColumn
Dim intCounter As Integer
Dim tcCheckBoxCol As DataGridBoolColumn

grdCoordinator.TableStyles.Clear()

'Add Delete CheckBox Column
tcCheckBoxCol = New DataGridBoolColumn()
tcCheckBoxCol.HeaderText = "Delete"
tcCheckBoxCol.Width() = 100
tcCheckBoxCol.NullValue = False
tcCheckBoxCol.NullText = False
tsTableStyle.GridColumnStyles.Add(tcCheckBoxCol)

tsTableStyle.MappingName = ds.Tables(0).TableName()
For intCounter = 0 To ds.Tables(0).Columns.Count() - 1
tcTextCol = New DataGridTextBoxColumn()
tcTextCol.MappingName = ds.Tables(0).Columns.Item(intCounter).ColumnName
tcTextCol.HeaderText = ds.Tables(0).Columns.Item(intCounter).ColumnName

Select Case tcTextCol.MappingName()
Case "Phone1"
tcTextCol.Width() = 0
Case "Coordinator"
tcTextCol.Width() = 200
Case "From", "To"
tcTextCol.Width() = 160

End Select
tsTableStyle.GridColumnStyles.Add(tcTextCol)
Next

grdCoordinator.TableStyles.Add(tsTableStyle)
End Sub