主题：[求助] 数值精确到小数点后2位数

以下统计命令得出的【订单金额】为整数；如何修改才能得出带2位小数点的数值？

 

 

Dim t2 As Table = Tables("京东慧采清单表开piao窗口_Table2")
t2.DataSource = g2.BuildDataSource() '生成表
t2.DataTable.DataCols.Add("订单金额", Gettype(Double))
t2.SetColVisibleWidth("用户账号|90|申请日期|90|站段归属|140|申请站段|140|订单提交时间|90|父订单编号|100|订单编号|100|订单金额|80|fa piao号|140|出库时间|90|订单完成时间|90")

'If g2.isnull("申请日期")  = Nothing Then
For Each r2 As Row In t2.Rows
    Dim c_gt1 As Integer = DataTables("京东慧采清单表").compute("Sum(实付款)", "  订单编号 = '" & r2("订单编号") & "'  ")
    r2("订单金额") = c_gt1
    
Next

t2.DataTable.DataCols("订单金额").SetFormat("0.00")

'Else
'End If

MessageBox.show("完成数据核查工作!!!", "非常关键提醒")

此主题相关图片如下：360截图20180417145413949.jpg

 

Dim c_gt1 As Double = DataTables("京东慧采清单表").compute("Sum(实付款)", "  订单编号 = '" & r2("订单编号") & "'  ")