Dim cs() As String = {"第一列", "第二列"}
For Each c As String in cs
Tables("学员信息登记表").Grid.Cols(c).style.backcolor = color.red
Next