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


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

主题：统计表样式如何设计
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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'
红代码，还是没改变样式？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/29 12:41:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/29 15:48:00 [显示全部帖子]

Tables("窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center，
数据居中报错？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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，报错找不到*_数量，如何解决？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/4/1 9:57:00 [显示全部帖子]

For Each c As Col In Tables("样式窗口_Table1").cols
    If c.Caption Like "*_数量"  Then
        Tables("样式窗口_Table1").SetHeaderCellBackColor(c.Name, Color.Cyan, 2)
        Tables("样式窗口_Table1").Cols("客户").TextAlign = TextAlignEnum.Center'
        Tables("样式窗口_Table1").Cols("产品").TextAlign = TextAlignEnum.Center'
         Tables("样式窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center
        Tables("样式窗口_Table1").Cols("数量").TextAlign = TextAlignEnum.Center'
    End If 
Next

 数量列是统计后生成多表头，不知道怎么处理？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/4/1 10:27:00 [显示全部帖子]

表的数据如何实现动态滚动？好象是做一个定时器进行滚动，数据滚动到最后一条记录后，从头再滚动，隐藏滚动条，这些代码如何实现？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/4/1 11:34:00 [显示全部帖子]

上面执行，光标在单个列，
问题一：如何让光标以行，比如绿色的行样式？
问题二：如何横向滚动？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/4/1 12:13:00 [显示全部帖子]

SQLTable表用不了，用属性改颜色不行，无论改什么颜色，其背景色都白色，不知为什么会这样？
[此贴子已经被作者于2024/4/1 12:17:01编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询