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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计表金额列数位太多

共有3464人关注过本帖树形打印复制链接主题：统计表金额列数位太多

实话实说

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

统计表金额列数位太多 发帖心情

Post By：2021/8/31 19:51:00 [只看该作者]

以下统计中，金额列以元位单位，数位太多，想以万元为单位，不要小数，如何处理？

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品") '添加产品列用于垂直分组
b.Totals.AddDef("金额") '添加数量列用于统计
b.Build '生成统计表

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/31 20:16:00 [只看该作者]

Dim b As New sqlCrossTableBuilder("统计表1","订单")

b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品") '添加产品列用于垂直分组

b.Totals.AddExp("金额","金额 / 10000")
b.Build '生成统计表

实话实说

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2021/8/31 21:17:00 [只看该作者]

红色部分有问题
Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Selec t * From {销售订单} Where 月 >= '" & e.Form.Controls("起始月").Text & "' And 月 <= '" & e.Form.Controls("截止月").Text & "'"

        Dim f As New SQLCrossTableBuilder("销售订单统计", cmd.ExecuteReader())
        f.HGroups.AddDef("客户简称")
        'f.VGroups.AddDef("月", "订单金额_{0}")
        f.VGroups.AddDef("月", "{0}")
        f.Totals.AddDef("订单单号",AggregateEnum.Count,"订单数")
        f.Totals.AddExp("金额合计", "订单金额 /10000")
        f.OrderByTotal = True
        f.HorizontalTotal = True '水平合计
        f.VerticalTotal = True '垂直合计
        f.Decimals = 0 '保留的小数
        f.Build()

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/31 21:26:00 [只看该作者]

Dim f As New CrossTableBuilder("销售订单统计", "Selec t *,订单金额 /10000 as 金额合计 From {销售订单} Where 月 >= '" & e.Form.Controls("起始月").Text & "' And 月 <= '" & e.Form.Controls("截止月").Text & "'"，“数据源名称”)

        f.HGroups.AddDef("客户简称")
        'f.VGroups.AddDef("月", "订单金额_{0}")
        f.VGroups.AddDef("月", "{0}")
        f.Totals.AddDef("订单单号",AggregateEnum.Count,"订单数")
        f.Totals.AddDef("金额合计")
        f.OrderByTotal = True
        f.HorizontalTotal = True '水平合计
        f.VerticalTotal = True '垂直合计
        f.Decimals = 0 '保留的小数
        f.Build()

实话实说

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2021/8/31 21:40:00 [只看该作者]

此主题相关图片如下：snap1.jpg

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/31 22:01:00 [只看该作者]

dim s as string = "Select *,订单金额 /10000 as 金额合计 From {销售订单} Where 月 >= '" & e.Form.Controls("起始月").Text & "' And 月 <= '" & e.Form.Controls("截止月").Text & "'"

Dim f As New CrossTableBuilder("销售订单统计", s，“数据源名称”)