参考代码
Dim t As Table = Tables("表A")t.grid.Cols(1).style.backcolor=Color.redt.grid.Cols(2).style.backcolor=Color.redt.grid.Cols(3).style.backcolor=Color.red