主题：[求助]能否将表事件的代码改写到全局表事件

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

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

谢谢林老师的指教！

第一段代码放在全局表事件的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

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