以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  统计表样式如何设计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191177)

--  作者：lin98 --  发布时间：2024/3/29 10:25:00 --  统计表样式如何设计 此主题相关图片如下：统计表样式问题.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编辑过]

--  作者：有点蓝 --  发布时间：2024/3/29 10:39:00 --   把默认的样式去掉 Tables("窗口_Table1").Theme="(none)"

--  作者：lin98 --  发布时间：2024/3/29 11:10:00 --   把默认的样式去掉 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\' 红代码，还是没改变样式？

--  作者：有点蓝 --  发布时间：2024/3/29 11:32:00 --   我测试没有问题，请上传实例说明

--  作者：lin98 --  发布时间：2024/3/29 12:41:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:实例.zip

--  作者：有点蓝 --  发布时间：2024/3/29 13:36:00 --   那是列名用错了，交叉统计表看到的是标题，不是真正的列名  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:实例.zip

--  作者：lin98 --  发布时间：2024/3/29 15:48:00 --   Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center， 数据居中报错？

--  作者：有点蓝 --  发布时间：2024/3/29 15:50:00 --   参考实例的用法，遍历列，判断标题

--  作者：lin98 --  发布时间：2024/4/1 9:36:00 --   Tables("窗口_Table1").Cols("产品").TextAlign = TextAlignEnum.Center， Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center，报错找不到*_数量，如何解决？

--  作者：有点蓝 --  发布时间：2024/4/1 9:48:00 --   For Each c As Col In Tables("样式窗口_Table1").cols     If c.Caption Like "*_数量" Then         针对这个列的各种处理     End If  Next