以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将多余小数位舍去  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71489)
--  作者：xzc1221
--  发布时间：2015/7/12 18:09:00
--  如何将多余小数位舍去
如何将多余小数位舍去.例如 1.7321为1.73   2.8596为2.85
--  作者：大红袍
--  发布时间：2015/7/12 20:31:00
--  
Dim num As Double = 1.735555
Dim d As Integer = 2
Dim idx As Integer = cstr(num).IndexOf(".")
If idx >= 0 AndAlso idx+d < cstr(num).Length Then
    msgbox(cstr(num).SubString(0,idx+d+1))
Else
    msgbox(num)
End If
--  作者：xzc1221
--  发布时间：2015/7/12 21:32:00
--  
没有明白，好像不行
[此贴子已经被作者于2015/7/12 21:36:34编辑过]
--  作者：xzc1221
--  发布时间：2015/7/12 23:49:00
--  

Select Case e.DataCol.name
  Case "列名一"
    e.DataRow("舍去多余小数位保留两位") = Math.Floor ( e.DataRow("列名二") * 100) / 100
    e.DataRow("舍去小数位") = Math.Floor ( e.DataRow("列名二") )
    e.DataRow("四舍五入保留两位") = Math.Round ( e.DataRow("列名二") , 2 )
    e.DataRow("四舍五入保留一位") = Math.Round ( e.DataRow("列名二") , 1 )
End Select

 

已经找到方法如上，多谢关注