各位老师，新年好！
以下两段代码需要写入每张表的表事件中，如果将此代码写入全局表事件中，并达到同样效果，应该如何修改，请各位老师指教，谢谢！！

1、表事件BeforeShowContextMenu

\'隐藏快捷键
If _UserGroup = "开发" Then
    e.Cancel = False
Else
    e.Cancel = True
End If

DataTables("表名").SysStyles("Frozen").BackColor = Color.LightCyan
DataTables("表名").SysStyles("CurrentRow").BackColor = Color.Blue
DataTables("表名").SysStyles("CurrentRow").ForeColor = Color.White

如果不需要判断表名，代码写在全局表事件中省事，如果需要用select case 判断表名，又要判断行、列，那在全局表事件中，代码将多到不忍目睹，很难管理，还不如写到每张表中。

谢谢林老师的指教！

第一段代码放在全局表事件的BeforeShowContextMenu事件中，在项目事件的Initialize事件中写入开启全局表的代码：

For Each dt As DataTable In DataTables
    dt.GlobalHandler.BeforeShowContextMenu = True
Next

好像对用CrossTableBuilder生成的汇总表不起作用，其他表可行。

第二段代码好像不能放在全局表事件的CurrentChanged事件中，否则会出现错误提示。

此主题相关图片如下：a.png

只能用以下代码写在afteropenproject事件里，同样对用CrossTableBuilder生成的汇总表不起作用。

for each dt as datatable in datatables
    dt.SysStyles("Frozen").BackColor = Color.LightCyan
    dt.SysStyles("CurrentRow").BackColor = Color.Blue
    dt.SysStyles("CurrentRow").ForeColor = Color.White
next

以上问题是否有办法解决，还请林老师指教，谢谢！！