加一列逻辑列【显示】,drawcell事件写代码
If e.Col.Name = "某列" AndAlso e.Row("显示") = True Then
e.Text = e.Row("某列")
End If