以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]全局表事件代码(新问题)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30205)

--  作者:yyzlxc
--  发布时间:2013/3/22 21:35:00
--  [求助]全局表事件代码(新问题)
以下是整行突出的代码,放在对应表的CurrentChanged事件中。

DataTables("数据填报").SysStyles("Frozen").BackColor = Color.LightCyan
DataTables("数据填报").SysStyles("CurrentRow").BackColor = Color.Blue
DataTables("数据填报").SysStyles("CurrentRow").ForeColor = Color.White

打算将该代码放到全局表事件的CurrentChanged事件中,并使每张表都能实现这一功能,代码应该如何改,请各位老师指教,谢谢。
[此贴子已经被作者于2013-3-22 23:36:13编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/3/22 22:33:00
--  

这个代码能放在CurrentChanged事件中呢,这个事件是换行的代码,每次换行执行一次,而你的代码实际上只需启动后执行一次就行,所以应该放在项目事件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

--  作者:yyzlxc
--  发布时间:2013/3/22 23:16:00
--  
谢谢狐爸老师的指教,再次感谢!!
--  作者:yyzlxc
--  发布时间:2013/3/22 23:32:00
--  
狐爸老师,如果放在项目事件AfterOpenProject中,对代码生成的统计表好像无效,如何解决,请指教,谢谢!!
--  作者:唐尸三摆手
--  发布时间:2013/3/23 8:50:00
--  
代码生成的表是临时表,当然就得临时设置一次了。