[求助]如何让小数点后的数字不显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何让小数点后的数字不显示

共有5005人关注过本帖树形打印复制链接主题：[求助]如何让小数点后的数字不显示

ppyaxf110

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

加好友

发短信

等级：婴狐帖子：15 积分：202 威望：0 精华：0 注册：2014/1/16 19:27:00

[求助]如何让小数点后的数字不显示 发帖心情

Post By：2014/4/13 20:47:00 [只看该作者]

求助]如何让小数点后的数字不显示

例如：

15.6显示15 不是四舍五入后显示16

15.3显示15

一句话四舍五不入

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：823 积分：5902 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/4/13 20:53:00 [只看该作者]

字段类型设为整数！

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/13 21:02:00 [只看该作者]

为什么要这样做？需要编写代码才能控制的。

参考 http://www.foxtable.com/help/topics/2262.htm

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：823 积分：5902 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/4/13 21:17:00 [只看该作者]

在命令窗口

Dim s1 As String ="32231.333"
Dim s2 As String = s1.Remove(s1.Indexof("."))
Output.Show("s2 = " & s2)

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/14 8:32:00 [只看该作者]

Select e.DataCol.Name
    Case "双精度小数列"
        Dim value As String = CStr(e.DataRow(e.DataCol))
        If value.Contains(".") Then
            e.DataRow(e.DataCol) = value.SubString(0,value.LastIndexOf("."))
        End If
End Select

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/4/14 8:35:00 [只看该作者]

呵呵，这样好点：

Select e.DataCol.Name
Case "双精度小数列"

e.DataRow(e.DataCol.Name) = Math.Floor(e.DataRow(e.DataCol.Name))

End Select

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

主题：[求助]如何让小数点后的数字不显示