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

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

 

1、表事件BeforeShowContextMenu

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

2、表事件CurrentChanged

'整行突出

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

 首先，你需要开启对应的全局表事件。

 后这样写。

 If _UserGroup = "开发" Then
    e.Cancel = False
 Else
    e.Cancel = True
 End If

----------------------------------

 e.DataTable.SysStyles("Frozen").BackColor = Color.LightCyan
 e.DataTable.SysStyles("CurrentRow").BackColor = Color.Blue
 e.DataTable.SysStyles("CurrentRow").ForeColor = Color.White
 
(这里只需要设置一次就行了，建议写在afteropenproject事件里，代码要变一下)

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

--------------------------------------------------

开启全局表
http://www.foxtable.com/help/topics/0671.htm

如果不需要判断表名，代码写在全局表事件中省事，如果需要用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

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

 改一下就可以了。全局表事件里。

 DataTables(e.Table.name).SysStyles("Frozen").BackColor = Color.LightCyan
 DataTables(e.Table.name).SysStyles("CurrentRow").BackColor = Color.Blue
 DataTables(e.Table.name).SysStyles("CurrentRow").ForeColor = Color.White