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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：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 '生成统计表

有点蓝

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

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：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()

有点蓝

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

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：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，“数据源名称”)

有点蓝

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

加好友

发短信

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

Post By：2021/9/1 9:37:00 [显示全部帖子]

遍历所有行，金额列 / 10000咯

For Each dr As DataRow In dt.DataRows

For Each dc As DataCol In dt.DataCols

dr(dc.name) = dr(dc.name) / 10000

下一主题 >> << 上一主题

主题：统计表金额列数位太多