昨天问了如何修改整行的颜色,发了个案列很不错很好,可是所设置的按键只能修改指定的单独的表格,如何将其修改有够变成一个按键就能针对所有的表格都进行修改呢?
代码如下:
Dim Tbl As Table = Tables("表A")For i As Integer = Tbl.TopPosition To Tbl.BottomPosition Tbl.Rows(i)("颜色") = NothingNext
Drawcell事件代码:
先谢谢了哦!