AfterOpenProject事件
For Each t As Table In Tables Functions.Execute("TB_表样式",t.Name)Next
或者CurrentTableChanged事件
Functions.Execute("TB_表样式",CurrentTable.Name)