以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加一个双精度临时列，设为2为小数 ？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66010)
--  作者：jswjyjf
--  发布时间：2015/3/27 14:37:00
--  增加一个双精度临时列，设为2为小数 ？
增加一个双精度临时列，设为2为小数 ？
--  作者：jswjyjf
--  发布时间：2015/3/27 14:42:00
--  
如何为增加的一个双精度临时列，设为2为小数 ？
--  作者：有点甜
--  发布时间：2015/3/27 14:48:00
--  
Dim l As DataCol = DataTables("表A").DataCols.Add("临时列", Gettype(Double))
l.SetFormat("0.00")
--  作者：jswjyjf
--  发布时间：2015/3/27 14:55:00
--  

Tables("月统计").Cols("单价").Move(Tables("月统计").cols.Count-1)
dt.DataCols.Add("月重量", Gettype(Double), "","月重量")
\'dt.DataCols.Add("金额", Gettype(Double), "","金额")
Dim l As DataCol = dt.DataCols.Add("金额", Gettype(Double))
l.SetFormat("0.00")
 For Each r As Row In t3.Rows
    r("月重量") = Val(r("计算件重")) * r("合计")
Next
t3.Rows(t3.Rows.count-1)("月重量") = t3.Compute("Sum(月重量)")
For Each r As Row In t3.Rows
    r("金额") = val(r("月重量")) * val(r("单价"))
Next
t3.Rows(t3.Rows.count-1)("金额") = t3.Compute("Sum(金额)")


 但是算出来的金额 还不是2位小数
--  作者：有点甜
--  发布时间：2015/3/27 14:57:00
--  

那你就这样写

 

t3.Rows(t3.Rows.count-1)("金额") = Format(t3.Compute("Sum(金额)"), "0.00")