Dim ts As DataGridTableStyle = New DataGridTableStyle
Dim dg As DataGridTextBoxColumn
 
ts.MappingName = "Users" 'NAME_DES_DATATABLES
 
dg = New DataGridTextBoxColumn
dg.MappingName = "Vorname" 'DIE_1.SPALTE_IM_DATATABLE
dg.Width = 100
ts.GridColumnStyles.Add(dg)
 
dg = New DataGridTextBoxColumn
dg.MappingName = "Nachname" 'DIE_2.SPALTE_IM_DATATABLE
dg.Width = 0
ts.GridColumnStyles.Add(dg)
'usw.
 
Me.DataGrid1.TableStyles.Add(ts) 'DG HINZUFÜGEN
 
'WICHTIG DU MUSST ALLE SPALTEN DEFINIEREN!