DrawCell事件必须用,不过可以加一个按钮切换,按钮代码:With DataTables.Styles("A") .BackColor = iif(.BackColor = Color.Red, Color.White, Color.Red)End With