以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量设置颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101629)

--  作者:jick0526
--  发布时间:2017/6/4 14:54:00
--  批量设置颜色
老师,请问下,怎么批量设置表样式配色方案里面的数据区和交替行的背景颜色,表太多了,一个一个设置太麻烦了,我想要所有的表统一设置,谢谢!
--  作者:有点色
--  发布时间:2017/6/4 15:55:00
--  

 那你可以用代码设置,代码写到AfterOpenProject事件去

 

http://www.foxtable.com/webhelp/scr/1577.htm

 


--  作者:jick0526
--  发布时间:2017/6/4 18:45:00
--  
老师那请问下,下面的代码改成所有表该怎么改
DataTables("表A").SysStyles("EmptyArea").BackColor = Color.Whit
--  作者:有点色
--  发布时间:2017/6/4 22:09:00
--  
For Each dt As DataTable In DataTables
    dt.SysStyles("EmptyArea").BackColor = Color.White
Next

--  作者:jick0526
--  发布时间:2017/6/5 21:24:00
--  
老师,我批量改颜色,下面的代码要放在哪个事件,我把他放在AfterOpenProject事件放不了

For Each dt As DataTable In DataTables
    dt.SysStyles("Normal").BackColor = Color.GradientInactiveCaption
Next

For Each dt As DataTable In DataTables
    dt.SysStyles("Alternate").BackColor = Color.ActiveCaption
Next


--  作者:有点蓝
--  发布时间:2017/6/5 21:58:00
--  
AfterOpenProject事件不可能有问题,出什么错误?

一个循环就可以,没有必要2个

For Each dt As DataTable In DataTables
    dt.SysStyles("Normal").BackColor = Color.GradientInactiveCaption
    dt.SysStyles("Alternate").BackColor = Color.ActiveCaption
Next

--  作者:jick0526
--  发布时间:2017/6/5 22:16:00
--  
老师,提示下面的错误
GradientinactiveCaption 不是 System.Drawing.Color的成员
--  作者:有点蓝
--  发布时间:2017/6/5 22:39:00
--  

For Each dt As DataTable In DataTables
    dt.SysStyles("Normal").BackColor = systemColors.GradientInactiveCaption
    dt.SysStyles("Alternate").BackColor = systemColors.ActiveCaption
Next