自定义表样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何在项目属性中自定义表样式应用于所有表

此主题相关图片如下：表样式.jpg

项目属性中的表样式都不怎么满意，表样式设置中又要一个表一个表的设置，想用自定义函数统一表样式又不会，希望老师做一个样板

Dim b As DataTable = DataTables("表A")

b.SysStyles("EmptyArea").BackColor = Color.black '空白区背景颜色

b.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色(蔚蓝色)

b.SysStyles("CurrentRow").BackColor = Color.DarkOrange '当前行颜色(深橙色)

'b.SysStyles("CurrentRow").ForeColor = Color.White '当前行字颜色

b.SysStyles("Fixed").BackColor = Color.Brown '标题行颜色(棕色)

b.SysStyles("Fixed").ForeColor = Color.White '标题行字颜色

b.SysStyles("SelectedRowHeader").BackColor = Color.DarkCyan '选定行的行标题颜色(深青色)

b.SysStyles("SelectedRowHeader").ForeColor = Color.White '选定行的行标题字颜色

b.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan '选定列的列标题颜色(深青色)

b.SysStyles("SelectedColumnHeader").ForeColor = Color.White '选定列的列标题字颜色

b.SysStyles("Focus").BackColor = Color.DarkCyan '焦点单元格颜色(深青色)

b.SysStyles("Focus").ForeColor = Color.White '选定列的列标题字颜色

’表样式_样式设置_行号颜色_普通行（默认：SteelBlue）

CurrentTable.Grid.Styles("UnchangedRowHeader").forecolor= Color.White

最后一行代码可能有点小问题

老师，能按上面代码做个自定义函数吗？

1楼的图是使用表样式属性设置的，设置行标题颜色时连带序号列颜色一起设置了。如果通过2楼代码设置行标题颜色，则序号列颜色不能一起设置。

序号列的颜色如何设置？

[此贴子已经被作者于2021/10/7 10:58:01编辑过]

与1楼图相比，序号列选定行的行号不能显示

此主题相关图片如下：表样式.jpg

以下是自定义函数

Dim name As String =args(0)

Dim b As Table = Tables(name)

'Dim dt As DataTable = b.DataTable

'dt.SysStyles("EmptyArea").BackColor = Color.black '空白区背景颜色

b.UseVisualStyle = False '关闭系统界面风格,否则部分设置不起作用

b.ListMode = True '整行突出显示

b.SysStyles("EmptyArea").BackColor = Color.black '空白区背景颜色

b.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色(蔚蓝色)

b.SysStyles("CurrentRow").BackColor = Color.DarkOrange '当前行颜色(深橙色)

'b.SysStyles("CurrentRow").ForeColor = Color.White '当前行字颜色

b.SysStyles("Fixed").BackColor = Color.Brown '标题行颜色(棕色)

b.SysStyles("Fixed").ForeColor = Color.White '标题行字颜色

b.SysStyles("SelectedRowHeader").BackColor = Color.DarkCyan '选定行的行标题颜色(深青色)

b.SysStyles("SelectedRowHeader").ForeColor = Color.White '选定行的行标题字颜色

b.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan '选定列的列标题颜色(深青色)

b.SysStyles("SelectedColumnHeader").ForeColor = Color.White '选定列的列标题字颜色

b.SysStyles("Focus").BackColor = Color.DarkCyan '焦点单元格颜色(深青色)

b.SysStyles("Focus").ForeColor = Color.White '选定列的列标题字颜色

b.Grid.Styles("UnchangedRowHeader").forecolor = Color.White

与1楼图颜色设置一样，1楼是在样式属性中设置的。

此主题相关图片如下：表样式.jpg

还有个现象：每次打开项目和窗口时，自定义函数的表样式加载不完全，要重新再打开一次才行。为此我在AfterLoad事件中加载2次才行，不知何故？

Functions.Execute("表样式","材料期初")

Functions.Execute("表样式","表A")

下表是表A

此主题相关图片如下：表样式.jpg

老师，8楼的内部函数到底有什么问题，导致12楼的问题

这就是2个问题了

主题：自定义表样式