afterOpenProject事件,写代码
Dim cs As String() = {"第五列", "第六列"}For Each c As String In cs Tables("表A").grid.Cols(c).style.backcolor = Color.redNext