Dim ts As New DataGridTableStyle
        ts.MappingName = Class_SupplIn

        Dim csID As New DataGridTextBoxColumn
        csID.MappingName = "ID"
        csID.Width =  0 
        ts.GridColumnStyles.Add(csID)


        Dim cs As New DataGridNoNullBoolColumn
        cs.MappingName = "chk"
        cs.Width =  30 
        cs.IsChecker = True
        cs.ReadOnly = False
        cs.AllowNull = False
        cs.HeaderText = "Відмітка"
        ts.GridColumnStyles.Add(cs)

        Dim cs2 As New DataGridNoActiveCellColumn
        cs2.MappingName = "LineNum"
        cs2.Width =  10 
        cs2.HeaderText = "Номер з/п"
        cs2.ReadOnly = True
        ts.GridColumnStyles.Add(cs2)

        .......

        ts.AllowSorting = False
        grdData.TableStyles.Clear()
        grdData.TableStyles.Add(ts)