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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表小数位数

共有2494人关注过本帖树形打印复制链接主题：专业报表小数位数

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

专业报表小数位数 发帖心情

Post By：2015/10/27 18:22:00 [只看该作者]

老师，我在专业报表的代码中加入合计代码后，原来其他列设置的”0.00“代码不显示小数后两位，后删除以下代码又恢复正常，

下面代码如何修改能保证表中显示小数点两位，合计也显示小数点两位

For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容

rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))

rt.Rows.Count = rt.Rows.Count + 1

Dim cnt As Integer = rt.Rows.Count - 1

rt.Cells(cnt,0).Text = "收入合计"

For c As Integer = 0 To ColNames.Count - 1 '逐列设置和填入内容

If tb.Cols(ColNames(c)).IsNumeric Then

rt.Cells(cnt,c).Text = tb.Compute("Sum(" & ColNames(c) & ")")

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 19:10:00 [只看该作者]

[此贴子已经被作者于2015/10/27 19:10:40编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 19:11:00 [只看该作者]

For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    If tb.Cols(ColNames(c)).IsNumeric Then
        rt.Cells(r + 1, c).Text = format(tb.Rows(r)(ColNames(c)),"0.00")

    Else
        rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
        End If
    Next
Next
rt.Rows.Count = rt.Rows.Count + 1
Dim cnt As Integer = rt.Rows.Count - 1
rt.Cells(cnt,0).Text = "收入合计"
For c As Integer = 0 To ColNames.Count - 1 '逐列设置和填入内容
    If tb.Cols(ColNames(c)).IsNumeric Then
        rt.Cells(cnt,c).Text = format(tb.Compute("Sum(" & ColNames(c) & ")"), "0.00")
    End If
Next

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

主题：专业报表小数位数