这个事件是有点问题的,建议你在SystemIde事件检测当前表的变化触发代码
static ct As Table = CurrentTableIf ct.name <> CurrentTable.name Then ct = CurrentTable msgbox(ct.name)End If