以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 系统样式设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102693)
--  作者：jackyfashion
--  发布时间：2017/6/23 23:41:00
--  求助 系统样式设置

老师:

您好!系统样式设置要在那个事件写代码?

谢谢!

系统样式设置

DataTable有个SysStyles集合，用于返回指定名称的系统样式，例如：

DataTables("成绩表").SysStyles("Alternate")

表示成绩表交替行的样式。

系统样式包括：

Normal： 数据区
Frozen： 冻结区
Alternate: 交替行
EmptyArea： 空白区
Fixed： 标题行
Highlight: 选定区域
Focus： 焦点单元格
ModifiedCell: 已修改单元格
SelectedRowHeader： 选定行的行标题
SelectedColumnHeader：选定列的列标题
CurrentRow: 当前行
GrandTotal： 总计行
Subtotal0： 小计行0
Subtotal1： 小计行1
Subtotal2： 小计行2
Subtotal3： 小计行3
Subtotal4： 小计行4
Subtotal5： 小计行5

样式包括以下属性：

BackColor： 背景颜色
ForeColor： 字体颜色
FontBold： 逻辑型，设为True，字体加粗
FontItalic： 逻辑型，设为True，字体倾斜
FontStrikeout：逻辑型，设为True，字体带删除线
FontUnderline：逻辑型，设为True，字体带下划线

示例

希望将空白区的背景颜色设为白色：

DataTables("表A").SysStyles("EmptyArea").BackColor = Color.White
--  作者：有点蓝
--  发布时间：2017/6/24 8:46:00
--  
设置主表在AfterOpenProject
窗口表在Afterload
--  作者：jackyfashion
--  发布时间：2017/6/24 20:30:00
--  
谢谢老师!
我是当前表设置表样式?
谢谢!
[此贴子已经被作者于2017/6/24 20:30:33编辑过]
--  作者：jackyfashion
--  发布时间：2017/6/25 0:22:00
--  
老师:
您好!
我AfterOpenProject,写代码
加什么代码可以所有的表统一表样式?
谢谢!
--  作者：有点色
--  发布时间：2017/6/25 10:52:00
--  

 在AfterOpenProject循环每一个表设置，如

 

For Each dt As DataTable In DataTables
    dt.SysStyles("EmptyArea").BackColor = color.red
Next
--  作者：jackyfashion
--  发布时间：2017/6/25 22:01:00
--  
谢谢老师!!!