-- 作者:czy
-- 发布时间:2009/1/28 14:17:00
--
如何实现四舍五入
表达式并没有提供传统的四舍五入函数Round,我们只能用Convert函数来间接实现。
例如金额列原来的计算公式为:
[数量] * [单价] * (1 - [折扣])
为了保留两位小数,可以将公式改为:
Convert([数量] * [单价] * (1 - [折扣]) * 100, \'System.Int64\') / 100
原理很简单:将计算结果乘以100,然后取整,最后除以100。
如果你要保留三位小数,将表达式中的100改为1000即可,其余类推。
视图我还不知道好方法,不过现在可以这样解决一下。
Tables("表A").OpenView("a") Dim dst As WinForm.DataList = e.Form.Controls("DataList1") dst.DataTable = DataTables("表A") dst.Build()
|