主题：同一个快捷菜单针对不同的表不同的显示，如何解决？

希望同一个快捷菜单针对不同的表有不同的显示，将示例代码写在全局表BeforeShowContextMenu事件无作用，请问该如何解决？

If e.HitType = HitTypeEnum.empty  Then
    MessageBox.Show(e.Table.name, "提示")
    Select e.Table.name
        Case "零件总表"           
            ContextMenus("Empty").items("ADD").Enabled=False
            e.ContextMenu = ContextMenus("Empty")
        Case "零件明细表"
            ContextMenus("Empty").items("ADD").Enabled=True
            e.ContextMenu = ContextMenus("Empty")
        Case Else
            e.Cancel = True
    End Select
End If