Foxtable(狐表)用户栏目专家坐堂 → 合计列


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

主题:合计列

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/11 10:48:00 [显示全部帖子]

b.Totals.AddDef("销售金额") '添加数量列用于统计
‘b.Build '这一句去掉
Tables("全平台数据看板_Table2").DataSource = b.Builddatasource()
Tables("全平台数据看板_Table2").AutoSizeCols()
For Each c As Col In Tables("全平台数据看板_Table2").cols
    If c.name Like "*月" AndAlso c.IsNumeric
        c.GrandTotal = True
    End If
Next
Tables("全平台数据看板_Table2").GrandTotal = True '显示合计模式

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/11 11:03:00 [显示全部帖子]

Dim b As New CrossTableBuilder("统计表1",dt11)

b.HGroups.AddDef("平台名") '添加客户列用于水平分组

b.VGroups.AddDef("月份","{0}月") '添加日期列用于垂直分组

b.Totals.AddDef("销售金额") '添加数量列用于统计
b.Build '生成统计表

截图看看表结构

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/11 11:24:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/11 13:37:00 [显示全部帖子]

晕。到命令窗口执行4楼的代码,然后会生成一个统计表,到foxtable里查看这个统计表的表结构,不是看数据库里的表啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/11 13:49:00 [显示全部帖子]

If c.name Like "*月" AndAlso c.IsNumeric

改为

If c.name Like "销售金额*" AndAlso c.IsNumeric

或者
If c.caption Like "*月" AndAlso c.IsNumeric

[此贴子已经被作者于2020/12/11 13:49:42编辑过]

 回到顶部