以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置保留小数位数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42721)
--  作者：lfxxdt
--  发布时间：2013/11/20 11:09:00
--  如何设置保留小数位数

Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "Select sum(正品数) From {日报表} Where 工序 =\'"& "干压生产线装坯" &"\' And 联号 = \'"& dr("联号") &"\' And 生产状态 = \'"& "正常生产" &"\'"
    Dim sum As Single =cmd.ExecuteScalar()
    Dim cmd1 As New SQLCommand
    cmd1.C
    cmd1.CommandText = "Select sum(生产数) From {日报表} Where 工序 =\'"& "干压生产线装坯" &"\' And 联号 = \'"& dr("联号") &"\' And 生产状态 = \'"& "正常生产" &"\'"
    Dim sum1 As Single =cmd1.ExecuteScalar()
    dr("装坯生产数")=sum1
    dr("装坯正品数")=sum
    dr("装坯合格率")=sum/sum1

以上代码中黄色显示语句运行后，小数位数保留4位，我想只保留2位，应该如何编写。
--  作者：狐狸爸爸
--  发布时间：2013/11/20 11:29:00
--  
dr("装坯合格率") = Math.Round(sum/sum1,2)
--  作者：lfxxdt
--  发布时间：2013/11/20 12:17:00
--  

知道了，谢谢