全局表的DrawCell中写了如下代码:
If Forms("数据汇总").Opened andalso e.table.name = "数据汇总_Table1"
With e.table.DataTable.Styles("红色")
.ForeColor = Color.Red
.FontBold = True
End With
e.Style = "红色"
End If
在Forms(“数据汇总”)的AfterLoad 中添加了 GlobalHandler
Dim tbl As Table = Tables("数据汇总_Table1")
tbl.DataTable.AddUserStyle("红色", Color.Red, Color.White)
tbl.DataTable.GlobalHandler.DrawCell = True