以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何让小数点后的数字不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49184)
--  作者：ppyaxf110
--  发布时间：2014/4/13 20:47:00
--  [求助]如何让小数点后的数字不显示
求助]如何让小数点后的数字不显示
例如：
15.6显示15 不是四舍五入后显示16
15.3显示15 
一句话四舍五不入
--  作者：zyqzyy
--  发布时间：2014/4/13 20:53:00
--  

字段类型设为整数！
--  作者：有点甜
--  发布时间：2014/4/13 21:02:00
--  

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

 

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

 
--  作者：zyqzyy
--  发布时间：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
--  发布时间：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
--  作者：狐狸爸爸
--  发布时间：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