以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于表样式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115146)

--  作者:yangguojun
--  发布时间:2018/3/1 18:21:00
--  [求助]关于表样式
Functions.Execute("TB_表样式",CurrentTable.Name)

写了一个表样式的内部函数,这个函数写在哪个位置可以让所有表都使用这个表样式。



--  作者:有点甜
--  发布时间:2018/3/1 18:35:00
--  

AfterOpenProject事件

 

For Each t As Table In Tables
    Functions.Execute("TB_表样式",t.Name)
Next

 

或者CurrentTableChanged事件

 

Functions.Execute("TB_表样式",CurrentTable.Name)


--  作者:yangguojun
--  发布时间:2018/3/1 19:26:00
--  
还是不行  ,我有很多动态加载的表,动态加载上来的没有生效。
写在CurrentTableChanged下面后,窗口里的表要点击才能生效

--  作者:有点甜
--  发布时间:2018/3/1 19:59:00
--  

那就做一个计划,定时执行代码,如

 

static count As Integer = 0

If Tables.count <> count Then   
    For Each t As Table In Tables
        Functions.Execute("TB_表样式",t.Name)
    Next
    count = Tables.count
End If