Dim myTableStyle As DataGridTableStyle = DataGrid1.TableStyles(0)
Dim myColumns As GridColumnStylesCollection
 
<font color=green>' GridColumnStylesCollection</font>
myColumns = myTableStyle.GridColumnStyles
 
Dim i As Integer
 
<font color=green>' Prüfen, ob zu löschende Spalte vorhanden</font>
If myColumns.Contains("FeldName") Then
  <font color=green>' Index der zu löschenden Spalte ermitteln</font>
  Dim myDataColumnStyle As DataGridColumnStyle = myColumns("FeldName")
  i = myColumns.IndexOf(myDataColumnStyle)
 
  <font color=green>' Spalte jetzt entfernen</font>
  myColumns.RemoveAt(i)
End If