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

此主题相关图片如下：统计表样式问题.png

Dim b As New CrossTableBuilder("统计表1", DataTables("销售单"))

b.HGroups.AddDef("客户") '

b.HGroups.AddDef("产品") '

b.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年") '

b.VGroups.AddDef("日期", "{0}月") '

b.Totals.AddDef("数量", "数量") '

b.Totals.AddDef("金额", "金额") '

b.VerticalTotal = True '

b.HorizontalTotal = True '

'b.Build '

'MainTable = Tables("统计表1") '

Tables("窗口_Table1").DataSource = b.BuildDataSource() '

问题一：下面是统计表的样式，全失效，如何处理？

Tables("窗口_Table1").grid.ScrollBars = 0

Tables("窗口_Table1").SetHeaderCellBackColor("客户", Color.Cyan)

Tables("窗口_Table1").SetHeaderCellBackColor("产品", Color.Cyan)

Tables("窗口_Table1").SetHeaderCellBackColor("数量", Color.Cyan,3)

Tables("窗口_Table1").FocusRect = False'

Tables("窗口_Table1").SysStyles("Normal").BackColor = Color.Black'

问题二：类似此统计临时表的列的内容会随着，来源表的内容在变化，其样式如何处理？

[此贴子已经被作者于2024/3/29 10:27:17编辑过]

把默认的样式去掉

Tables("窗口_Table1").Theme="(none)"

把默认的样式去掉

Tables("窗口_Table1").Theme="(none)"

加上，

ables("窗口_Table1").SetHeaderCellBackColor("客户", Color.Cyan)

Tables("窗口_Table1").SetHeaderCellBackColor("产品", Color.Cyan)

Tables("窗口_Table1").SetHeaderCellBackColor("数量", Color.Cyan,3)

Tables("窗口_Table1").SysStyles("Normal").BackColor = Color.Black'

红代码，还是没改变样式？

我测试没有问题，请上传实例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例.zip

那是列名用错了，交叉统计表看到的是标题，不是真正的列名

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例.zip

Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center，

数据居中报错？

参考实例的用法，遍历列，判断标题

Tables("窗口_Table1").Cols("产品").TextAlign = TextAlignEnum.Center，

Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center，报错找不到*_数量，如何解决？

For Each c As Col In Tables("样式窗口_Table1").cols

If c.Caption Like "*_数量" Then

针对这个列的各种处理

End If

主题：统计表样式如何设计