Foxtable(狐表)用户栏目专家坐堂 → 统计表样式如何设计


  共有351人关注过本帖树形打印复制链接

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

帅哥,在线噢!
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
统计表样式如何设计  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 10:39:00 [只看该作者]

把默认的样式去掉

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

 回到顶部
帅哥,在线噢!
lin98
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By: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'
红代码,还是没改变样式?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 11:32:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
lin98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/3/29 12:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 13:36:00 [只看该作者]

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip



 回到顶部
帅哥,在线噢!
lin98
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/3/29 15:48:00 [只看该作者]

Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center,
数据居中报错?

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 15:50:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
lin98
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/4/1 9:36:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/1 9:48:00 [只看该作者]

For Each c As Col In Tables("样式窗口_Table1").cols
    If c.Caption Like "*_数量" Then
        针对这个列的各种处理
    End If 
Next 

 回到顶部
总数 19 1 2 下一页