Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合计模式的合计行小数点位数


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

主题：合计模式的合计行小数点位数
帅哥哟，离线，有人找我吗？
zkshgm
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：798 威望：0 精华：0 注册：2019/3/27 15:58:00 		合计模式的合计行小数点位数  发帖心情 Post By：2021/1/21 12:11:00 [只看该作者]

图片点击可在新窗口打开查看
请问老师，我用DataTableBuilder生成了一个临时表，并借助 GrandTotal属性设置了合计模式，可合计行（重量列）的小数点后只有两位，如果希望小数点后保留三位如何修改呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/21 13:40:00 [只看该作者]

我测试没有问题，请上传实例说明。注意先设置位数，再合计

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
Dim t As Table = e.Form.Controls("Table1").Table
t.datasource = dtb.BuildDataSource()
Dim dt As DataTable = t.DataTable
For i As Integer = 1 To 5
    Dim dr As DataRow = dt.addnew
    dr("金额") = i * 10.12
Next
dt.DataCols("金额").Decimals = 3
dt.DataCols("金额").SetFormat("0.000")

t.Cols("金额").GrandTotal = True
t.GrandTotal = True '显示合计模式
 回到顶部
帅哥哟，离线，有人找我吗？
zkshgm
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：798 威望：0 精华：0 注册：2019/3/27 15:58:00 		  发帖心情 Post By：2021/1/21 14:44:00 [只看该作者]

老师，我的原代码是下面这样的，没发现哪有问题啊
'''
e.Form.BaseForm.Close
e.Form.BaseForm.Opacity = 0
If Not Tables.Contains("temp入库单") Then
    Dim dtb As New DataTableBuilder("temp入库单")
    dtb.AddDef("入库日期", Gettype(Date))
    dtb.AddDef("内外销", Gettype(String), 5)
    dtb.AddDef("fa piao号", Gettype(String), 30)
    dtb.AddDef("客户", Gettype(String), 20)
    dtb.AddDef("客户PO", Gettype(String), 35)
    dtb.AddDef("客户PN", Gettype(String), 80)
    dtb.AddDef("订单批号", Gettype(String), 16)
    dtb.AddDef("产品尺寸", Gettype(String), 85)
    dtb.AddDef("磁性能", Gettype(String), 20)
    dtb.AddDef("覆盖层", Gettype(String), 15)
    dtb.AddDef("重量", Gettype(Double), "", "重量_(kg)")
    dtb.AddDef("数量", Gettype(Integer))
    dtb.AddDef("含税采购价", Gettype(Double), "", "含税单价_(RMB)")
    dtb.AddDef("含税金额", Gettype(Double), "", "含税金额_(RMB)")
    dtb.AddDef("所属部门", Gettype(String), 10)
    dtb.AddDef("开piao名称", Gettype(String), 6)
    dtb.AddDef("备注", Gettype(String), 100)
    dtb.Build()
    With Tables("temp入库单")
        .SetColVisibleWidth(Tables("成本入库").GetColVisibleWidth())
        .Cols("入库日期").TextAlign = TextAlignEnum.Center
        .Cols("内外销").TextAlign = TextAlignEnum.Center
        .Cols("所属部门").TextAlign = TextAlignEnum.Center
        .DataTable.DataCols("重量").Decimals = 3
        .DataTable.DataCols("重量").SetFormat("0.000")
        .DataTable.DataCols("含税采购价").SetFormat("0.0000")
        .DataTable.DataCols("含税金额").SetFormat("0.00")
        .Cols("重量").GrandTotal = True
        .Cols("含税金额").GrandTotal = True
        .GrandTotal = True
    End With
End If
Forms("成本入库单").Open()
MainTable= Tables("temp入库单")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/21 14:47:00 [只看该作者]

请上传实例看看

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


加好友 发短信
等级：婴狐 帖子：22 积分：798 威望：0 精华：0 注册：2019/3/27 15:58:00 		  发帖心情 Post By：2021/1/21 22:11:00 [只看该作者]

老师，我明白了，是列宽不够。把列拉宽就可以了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询