CurrentTableChanged
For Each c As Col In CurrentTable.Cols If c.DataCol.Expression > "" Then CurrentTable.SetHeaderCellForeColor(c.Name,Color.Red) End IfNext