以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  去尾法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49469)
--  作者：lfxxdt
--  发布时间：2014/4/18 14:16:00
--  去尾法

dr("装坯合格率")=Math.Round(sum/sum1,2)

我只想保存两位数，第三位数不进行四舍五入。
--  作者：Bin
--  发布时间：2014/4/18 14:19:00
--  
Dim d As Double=5.28345
MessageBox.show( Math.Floor(d*100)/100)
--  作者：lsy
--  发布时间：2014/4/18 14:26: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(".") + 3)
        End If
End Select
--  作者：lfxxdt
--  发布时间：2014/4/18 15:15:00
--  
知道了，谢谢